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16 PRODUCT CODE: AC-8496D-MC 

17 

18 PRODUCT NAME: CZDHNDO DH11 DATA RELIA8 TST 

19 

20 

21 DATE: JAN 1979 

22 

21 

2U MAINTAINER: DIAGNOSTIC ENGINEERING 

25 

2b 

27 

28 

20 

30 

31 COPYRIGHT (C) 1976, 1979 

32 

33 DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASS. 

54 

35 THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 

36 SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE 
; 37 INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR 

38 ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE 

39 MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH 

40 SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE 

41 TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN 

42 IN DEC. 
43 

44 THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 

45 WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT 

46 BY DIGITAL EQUIPMENT CORPORATION. 
47 

48 DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 

49 ITS SOFTWARE IN EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 
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KO 1.0 GENERAL PROGRAM DESCRIPTION 

K1 



142 

143 1.1 PROGRAM PURPOSE 

144 

145 

146 "CZDHND" IS A GENERAL PURPOSE TEST AND EXERCISER 

K7 PROGRAM FOR THE DH11, 16. LINE ASYNCHRONOUS LINE MULTIPLEXOR. 

148 IT CONSISTS OF THREE INDEPENDENT SUB-PROGRAMS THAT MAY BE 

149 USED FOR ACCEPTANCE TESTING, INSTALLATION CHECKOUT, AND 

150 CORRECTIVE MAINTENANCE OF THE DH11 SUB-SYSTEM. 
151 

152 1.1.1 SUBPROGRAM 1 DH11 DATA RELIABILITY TESTS 

153 

154 

155 ONCE CONFIGURED BY THE AUTOSIZER OR BY INITIAL CONSOLE DIALOGUE 

156 THIS PROGRAM CAN TEST UP TO 16. DH1TS. ALL LINES ON EACH DH11 ARfc 

157 TESTED (ONE AT A TIME) WITH ALL COMBINATIONS OF LINE PARAMETERS 

158 (BAUD RATE. CHAR LENGTH.PARITY ETC.) BY TRANSMITTING AND REC- 

159 EIVING A 8JNARY COUNT PATTERN. ALL ERRORS DETECTED ARE REPORTED 

160 ON THE CONSOLE DEVICE AS THEY OCCUR AND ALSO LOGGED IN ERROR 

161 STATISTICS TABLES. AT THE COMPLETION OF TESTING FOR EACH DH11 

162 THESE ERROR STATISTICS TABLES ARE DUMPED ON THE CONSOLE DEVICE 
'163 TO PROVIDE HISTORICAL EVIDENCE Of THE DATA RELIABILITY OF EACH 

164 DH11. REFER TO SECTION 4.0 FOR A DETAILED DESCRIPTION OF THE 

165 ERROR STATISTICS PROVIDED. THIS SUB-PROGRAM IS NORMALLY 

166 SELECTED FOR OVERALL DH CHECKOUT. 
167 

168 

169 1.7.2 SUB-PROGRAM 2 DH11 r NGLE LINE ECHO TEST 

171 

172 THIS PROGRAM PROVIDES THE MEANS OF TESTING ANY LINE ON 

17"* ANY DH11 BY USING AN ASYNCHRONOUS TERMINAL DEVICE (VT50.LA36 ETC) 

174 CONNECTED TO THE LINE UNDER TEST. THIS SUB-PROGRAM WOULD NORMALLY 

175 BE SELECTED WHEN A PROBLEM IS ISOLATED TO A SPECIFIC LINE. 

176 IT HAS TWO MODES OF OPERATION. SEND MODE OR ECHO MODE: 
177 

178 SEND MODE: THE USER TYPES AN ASCIZ BUFFER IN ON 

179 THE CONSOLE DEVICE AND THEN TYPES A 

180 UNIQUE CONTROL CHARACTER TO SEND THIS 
'81 BUFFER TO THE DH11 TEST TERMINAL. 

182 

183 " THE USER CAN THEN COMPARE THE TWO IMAGES 

184 FOR ACCURACY OF TRANSMISSION. 

185 

186 ECHO MODE: THE USER TYPES IN ON THE DH".1 TEST TERMINAL 

187 AND CAN OBSERVE EACH CHAR TYPED BEING 

188 ECHOED ON THE TERMINAL. BY TYPING 

189 A UNIQUE CONTROL CHARACTER THE PROGRAM 

190 WILL ECHO THE ENTIRE BUFFER TYPED IN 

191 UP TO THAT POINT. 
192 
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193 1.1.3 SUBPROGRAM 3 DHI1 DATA PATTERNS/CABLE TESTS 

194 

195 

1% THIS PROGRAM PROVIDES THE MEANS OF TESTING ANY LINE 

197 ON ANY DH11 USING AN H315 TEST CONNECTOR TO TERMINATE THE 

198 LINE UNDER TEST. THE USER CAN SPECIFY BUFFER SIZE AND LINE 

199 PARAMETERS PRIOR TO SELECTING ONE OF THE FOLLOWING 

200 DATA PATTERNS FOR TRANSMISSION, RECEPTION, AND ERROR CHECKING: 
201 

202 A. ALTERNATING 1/0 PATTERN 

203 B. BINARY UP COUNT PATTERN 

204 C. BINARY DOWN COUNT PATTERN 

205 D. RANDOM DATA PATTERN 

206 E. CUMULATIVE SEQUENCE OF (A) THRU (D) 

207 F. SINGLE CHARACTER PATTERN 

208 G. TYPED IN BUFFER PATTERN 
209 

210 ALL ERRORS DETECTED ARE REPORTED AS THEY OCCUR AND A SWITCH 

211 REGISTER OPTION ALLOWS LOCKING ON A PARTICULAR PATTERN. THIS 
-212 SUB-PROGRAM WOULD NORMALLY BE SELECTED FOR TROUBLESHOOTING 
213 A SPECIFIC PROBLEM. 

2K 
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1.1.4 CZOWND CORE MEMORY MAP 



********************************* 
000000: * 

* VECTOR AREA 

* * 
********************************* 

* * 

* STACK AREA * 

* * 
********************************* 

001100: * 

* SYSMAC CONSTANTS 

* AND VARIABLES 

* * 
********************************* 

BEGIN: * * 

* START-UP CODE 

* * 
********************************* 

STDH1 : * * 

* DH11 DATA RELIABILITY * 

* TESTS * 

* * 
********************************* 

ECHO: * * 

* DH11 SINGLE LINE * 

* ECHO TESTS 

* * 
****** ************* ************** 

EXPAT: * * 

* DH11 SINGLE LINE * 
PATTERNS/CABLE TESTS 

* * 
********************************* 

$EOP: * * 
STANDARD SYSMAC * 
UTILITY ROUTINES 

* * 
********************************* 

CKRST1: * * 

* COMMON DH11 UTILITIES * 

* * 
********************************* 

DHADR: * * 
DH11 PROGRAM CONSTANTS * 
AND VARIABLES * 

* * 
********************************* 

* * 
********* ********* 

* CONT. * * CONT. * 

********* ********* 
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********* ********* 

SXA * (ONT * * CONT. * 



270 
271 
272 
273 

-.-/ tn i : * 

%L? * SYSMAC ERROR MESSAGE * 



* CONT. * 

********* ********* 
* * 
********************************* 



EMI : * 



* BUFFFRS * 



* 



* 



275 
276 
277 

278 TITLE: * * 



********************************* 



370 llllt: » 

iCt * 0H11 MISCELLANEOUS 

* MESSAGE 8UFFERS 



* 
* 

* * 
282 ********************************* 

€b " R8UF: * _ _ 

* 
* 
« 



5BA HtSur : * 

<2c * TRANSMIT AND RECEIVE 

Ijg * DATA BUFFERS 

287 

pgl ENBUFS: 
?90 



********************************* 
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291 1.2 SYSTEM REQUIREMENTS 

292 

294 1.2.1 HARDWARE REQUIREMENTS 

295 

pa? A. ANY PDP11 COMPUTER SYSTEM WITH 12K Of CORE MEMORY 

298 AND A CONSOLE TERMINAL DEVICE <VT50,LA36 ETC) 

Cnn NOTE: FOR PAPER TAPE SYSTEMS USING THE PDP11 

701 ABSOLUTE LOADER THE PROGRAM WILL LOAD AND RUN 

302 IN 8K OF CORE 

304 B. A DH11 16. LINE ASYNCHRONOUS SERIAL LINE MULTIPLEXOR 

306 C. A DH11 TERMINAL DEVICE (LA36.VT5G ETC.) CECHO TESTS ONLY] 
307 

30« D. TEST CONNECTORS AND MODULE (THE NO. OF EACH REQUIRED 

§09 IS DETERMINED BY THE PARTICULAR TEST APPLICATION. 

310 REFER TO SECTION 6.1 FOR A COMPLETE DISCUSSION OF THE 

311 MAINTENANCE CONNECTORS.) 

313 1. H315 TEST CONNECTOR 

314 2. H8611 TEST CONNECTOR 

315 3. M974 TEST MODULE 

317 1.2.2 SOFTWARE REQUIREMENTS 

318 

319 

32? A. Af Tl 1 / THE PROGRAM CONTAINS THE NECESSARY '■SOFTWARE HOCKS' ' 

32? APT11 FOR INTERFACING TO THE ACT11/APT11 MANUFACTURING 

§23 S /STEMS. THE PROGRAM CAN BE RUN AS PART 

354 OF A QUICK VERIFY "CHAIN" SINCE IT CONTAINS 

325 AN AUTOSIZER. 

326 8. XXDP THE PROGRAM MAY BE LOADED FROM ANY "XXDP" 

327 MEDIA. IF AUTO-STARTED BY THE "XXDF" MONI TOR 

328 CONTROL WILL 8E TRANSFERRED TO THE DATA REL- 

329 I ABILITY PR06RAM. 

330 
33" 1 

332 1.3 RELATED DOCUMENTS AND STANDARDS 

333 

334 

335 A. DH11-0 ENGINEERING DRAWINGS 

336 6. DH11 MANUAL EK-DH1 1-MM-002 

337 C. PDP11 PERIPHERALS HANDBOOK 

338 D. PDP11 PROCESSOR HANDBOOK 

339 E. MD-11-DZQAC-C1 SYSMAC.SML 

340 F. MD-11-DZQXA "XXDP" USER'S GUIDE 

341 G. DIAGNOSTIC ENGINEERING STANDARDS AND CONVENTIONS 

342 PROGRAMMING PRACTICES DOC NO. 175-003-009-00 
34 7 

344 1.4 DIAGNOSTIC HIERARCHY PREREQUISITES 

345 

346 
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347 CZDHND ASSUMES THAT THE FOLLOWING DIAGNOSTICS 

348 HAVE BEEN RUN PRIOR TO ITS EXECUTION AND THAT NO ERRORS WERE 

349 DETECTED: 
350 

351 A. CPU/ CORE MEMORY DIAGNOSTICS 

35? B. MD-11-DZDHM DH11 BASIC DIAGNOSTIC 

i53 

354 1.5 FAILURt ASSUMPTIONS 

355 



356 

357 CZDHND ASSUMES THAT THE DH1 1 HARDWARE VERIFIED 

35? BY MD-1 1-DZDHM, THE BASIC DH11 DIAGNOSTIC, IS FUNCTIONING 

359 ERROR FREE. 

360 

361 2.0 OPERATING INSTRUCTIONS 

362 

363 

364 2.1 LOADING AND STARTING PROCEDURES 



365 
366 

367 2.1.1 LOADING PROCEDURES 

368 

369 

370 A. PAPER TAPE SYSTEMS 
371 

372 USE THE STANDARD PDP11 ABSOLUTE LOADER PROCEDURE FOR 

373 LOADING PAPER TAPES. AFTER LOADING THE PROGRAM MUST BE MAN- 

374 ' UALLY STARTED. (REFER TO SECTION 2.1.2) 

376 9. ••XXDP" SYSTEMS (REFER TO '*XDP" USER'S GUIDE MD-11-0ZQXA) 

378 1. MOUNT THE APPROPRIATE MEDIUM (DECTAPE.DISK ETC) 

379 CONTAINING THE " XXDP' ' MONITOR AND CZDHND. 

380 2. BOOT THE SYSTEM TO LOAD THE MONITOR 

381 3. ONCE LOADED THE "XXDP" MONITOR PRINTS AN INTRO- 
38? DUC TORY MESSAGE AND RESPONDS WITH A 

383 4. TYPE: "CZDHND" FOLLOWED BY EITHER A <CR> 

384 CARRIAGE RETURN OR AN "ALTMODE" 

385 TO LOAD THE PROGRAM. 

387 IF A <CR> WAS TYPED THE USER MUST MANUALLY 

388 START THE PROGRAM AFTER LOADING. 
389 

IF AN "ALTMODE" WAS TYPED THE MONITOR WILL 

391 AUTO START THE PROGRAM AT LOCATION 000200(8) 

392 WHICH WILL BEGIN EXECUTION OF THE DATA REL- 

393 I ABILITY PROGRAM. 

395 

396 NOTE: WHENEVER THE DH11 CONFIGURATION IS CHANGED 

39/ THE DIAGNOSTIC SHOULD BE RELOADED. 
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399 2.1.2 STARTING PROCEDURES 

400 

ici THERE ARE FIVE DIFFERENT STARTING ADDRESSES FOR THIS 

PROGRAM DEPENDING UPON WHICH SUB-PROGRAM IS TO BE STARTED. 

7X? THERE ARE THREE FOR THE DATA RELIABILITY PROGRAM AND ONE EACH 

2q5 FOR THE ECHO AND *ATA PATTERNS TESTS AS DESCRIBED BELOW: 

407 2.1.2.1 SUB-PROGRAM 1 DH11 DATA RELIABILITY TESTS 

408 

409 

41? A. TO AUTOMATICALLY START THE PROGRAM USING THE AUTOSIZER 

412 (START AT LOC 000200(8)) 

i]l 1. INSTALL THE REQUIRED TEST CONNECTORS FOR THE 

?{c PARTICULAR TEST APPLICATION (REFER TO SECTION 6.1) 

41I 2. SET THE HALT/ENABLE SWITCH TO HALT 

47 3. SET THE SR=000200(8) 

418 4. DEPRESS LOAD ADDRESS 

4T9 5. SET THE SR=000200 (WORST CASE TESTING) 

Jp? SET THE SR=000002 (TO TYPE THE DEVICE MAP) 
4?? 

423 SET THE SR=000000 (QUICK PASS) 

425 SET THE SR=000400 (HALT AFTER PARAMETER SET-UP) 

427 6. SET THE HALT/ENABLE SWITCH TO ENABLE 

42ft 7. DEPRESS START - THE PROGRAM WILL TEST ALL LINES 

^29 ON ALL DH'S FOUND. 

43? B. TO TYPE IN ALL REQUIRED PARAMETERS (START AT LOCATION 000200(8)) 

432 

433 1. INSTALL THE REQUIRED TEST CONNECTORS FOR THE 

434 PARTICULAR TEST APPLICATION. (REFER TO SECTION 6.1) 

435 2. SET THE HALT/ENABLE SWITCH TO HALT 

436 3. SET THE SR=000200<8> 

437 4. DEPRESS LOAD ADDRESS 

438 SET THE SR=000001 (FOR INPUT DIALOGUE) 

5. SET THE HALT/ENABLE SWITCH TO ENABLE 

440 6. DEPRESS START 

441 7. THE PROGRAM WILL PRINT THE TITLF AND ASK FOR THE 

442 NUMBER OF ADDRESSES BETWEEN VEC.ORS. TYPE EITHER 
Z43 A 'TO" OR A '20" TO INDICATE TEN OR TWENTY ADDRESS 

444 DISPLACEMENT BETWEEN VECTORS FOLLOWED BY A <CR> 

445 (CARRIAGE RETURN). 
446 

447 NOTE: 1. SYSTEMS WHERE THE DM11-BB VECTORS 

Tla ARE INTERLEAVED WITH THE DH11 VECTORS 

449 HAVE 20(8) ADDRESSES BETWEEN VECTORS. 

450 CTHIS IS THE CASE FOR THE 2040 FRONT END) 

451 2. STANDARD SYSTEMS HAVE THE DH11 VECTORS 

452 CONTIGUOUS WITH A 10(8; ADDRESS 
457 DISPLACEMENT. 
454 
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8. THt PROGRAM WILL ASK FOR THE DEVICE ADORES S NEXT. 
TYPE IN THE ADDRESS (OCTAL) OF THE FIRST DM11 

IN THE SYSTEM FOLLOWED BY A <CR>. 

IF AN INVALID ADDP^SS IS T YPED THE PROGRAM 
WILL TYPE AN ERROR MESSAGE AND ASK YOU TO 
TRY AGAIN. 

9. THE PROGRAM WILL ASK FOR THE VEC T OR ADDRESS. 

T YPE IN THE VECTOR ADDRESS (OCTAL) OF THE FIRST 
9HH FOLLOWED BY A <CR>. 

IF AN INVALID VECTOR ADDRESS IS TYPED THE 
D ROGRAM WILL TYPE AN ERROR MESSAGE AND ASK 
YOU TO TRY AGAIN. 

10. NtX T THE PROGRAM WILL ASK FOR THE DEVICE SELECTION 
PARAMETER. TYPE IN AN OCTAL NO. ENCODED AS FOLLOWS: 

BIT00=1 TEST DH11 #00 
BIT01=1 TEST DH11 #01 
BIT02-0 DO NOT TEST DH11 #02 



, BIT1 5=1 TEST DH11 #15 
EXAMPIES: 

^77777<CR> TEST ALL 16. DHU'S 

100000<CR> TEST ONLY DH11 #17(8) 

000005<CR> TEST DH11 #00 AND 02 

11. NEXT THE PROGRAM WILL ASK FOR THE LINE SELECTION 
PARAMETERS. TYPE AN ENCODED OCTAL NO. AS 
FOLLOWS: 

BIT00=1 TEST LINE #00 
BIT01=1 TEST LINE #01 
BJT02=0 DO NOT TEST LINE #02 



BIT15=1 TEST LINE #15 
EXAMPLES: 

177777<CR> TEST ALL 1 6. LINES 

100000<CR> TEST LINE 17(8) ONLY 

000005<CR> TEST LINES 00 AND 02 

IF A <CR> RETURN ONLY IS TYPED THE PROGRAM WILL 
DEFAULT TO 16. LINES. 

*********** 

NOTE 

********** 
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C. DEFAULT 
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533 


1 . 
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2. 


537 
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4. 


539 


5. 
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7. 
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559 




560 


D. CHANGE 
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IF MORE THAN ONE DH11 IS TESTED THE SAME COMBINATION 
OF LINES WILL BE TESTED ON ALL DH11"S SELECTED. 



THE FIRST SELECTED LINE OF THE FIRST SELECTED DH1 1 . 
(REFER TO PARA 2.4, 3.0, AND 4.0 FOR ERROR AND STATUS 
REPORTS) 



ING MESSAGE: 

' "DEPRESS CONTINUE TO START TESTING" 

WHEN CONTINUE IS DEPRESSED, THE PROGRAM WILL BEGIN TEST- 
ING AS IN STEP 12. 

THE PURPOSE OF THIS HALT IS TO ALLOW DUMPING 
UPDATED VERSIONS OF THE PROGRAM AFTER THE PARAMETERS 
HAVE BEEN SET UP FOR THE PARTICULAR DH11 SYSTEM. 



INSTALL THE REQUIRED TEST CONNECTORS FOR THE 

PARTICULAR TEST APPLICATION. REFER TO SECION 6.1 

SET THE HALT/ENABLE SWITCH TO HALT 

SET THE SR=000204(8) 

DEPRESS LOAD ADDRESS 

SET THE SR=000200 (WORST CASE TESTING) 

SET THE SR=000000 (QUICK PASS) 



IF this IS THE INITIAL LOAD. 
THE DEFAULT PARAMETERS ASSUME ONE DH11 
WITH THE FOLLOWING ADDRESS ASSIGNMENTS 

DH11 #0 DEVADR=760020, VECT0R=330. BR5 

OTHERWISE, THE PROGRAM WILL DEFAULT TO THE 
PARAMETERS USED IN THE PREVIOUS EXECUTION. 

PROGRAM EXECUTION BEGINS. REFER TO SECTIONS 2.4, 3.0. 
ANf» 4.0 FOR EXECUTION TIMES, ERROR REPORTS. AND 
PROGRESS REPORTS. 

D. CHANGE DEVICE AND LINE SELECT PARAMETERS (START AT LOC 000210(8)) 

INSTALL THE REQUIRED TEST CONNECTORS FOR THE 
SPECIFIC TEST APPLICATION. (REFER TO SECTION 6.1) 
SET THE HALT /ENABLE SWITCH TO THE HALT POSITION 
SET THE SR=000210 



SEC) 0012 



fZDHN-D MACY11 30A(1052) 27-DEC-78 15:31 PAGE 
CZDHND.P11 27-DEC-78 1 5 : 28 

567 

568 

569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 



N 1 



SEQ 0013 

5. SET THE SR=000200 (WORST CASE TESTING) 
SET THE SR=000000 (QUICK PASS) 

SET THE SR=000400 (HALT AFTER PARAMETER SETUP) 

6. SET THE HALT/ENABLE SWITCH TO ENABLE 

7. DEPRESS START 

8. PROGRAM WILL ASK FOR DEVICE SELECTION PARAMETER 
PROCEED AS IN (B-10) ABOVE. 

9. PROGRAM WILL ASK FOR LINE SELECTION PARAMETERS. 
PROCEED AS IN (8-11) ABOVE. 

10. PROGRAM WILL BEGIN EXECUTION AS DESCRIBED IN 
PARA 2.1.2.1 (8,12) ABOVE 
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582 2.1.2.2 SUBPROGRAM 2 DH11 SINGLE LINE ECHO TESTS 

583 

584 

585 1. CONNECT THE TEST TERMINAL TO THE DH11 LINE TO BE TESTED 

586 • AND POWER IT UP. 

587 2. SET THE HALT/ENABLE SWITCH TO HALT 

588 3. SET THE SR=000214(8) 

589 A. DEPRESS LOAD ADDRESS 

590 5. SET THE SR=000001 (TO INHIBIT THE AUTOSIZER) 

591 NOTE: WHEN THE AUTOSIZER IS NOT INHIBITED 

592 THAT IS, SR=000000, IT WILL LOAD THE FIRST 

593 DH CSR ADDRESS AND VECTOR FOUND AND TEST THAT 

594 DEVICE ONLY. IF ANY OTHER DH'S ARE TO BE TESTED, 

595 THE CSR ADDRESS AND VECTOR MUST BE INPUT 

596 MANUALLY, THAT IS, WITH SR=000001 . 

597 6. SET THE HALT/ENABLE SW TO ENABLE 

598 7. DEPRESS START 

599 8. THE PROGRAM WILL TYPE THE TITLE MESSAGES 

600 AND ASK FOR THE NO. OF ADDRESSES BETWEEN VECTORS. 

601 TYPE EITHER A HO" OR * 20" AS DESCRIBED IN PARA 2.1.2.1 (87) ABOVE . 
602 

603 9. TYPE IN THE DEVICE ADDRESS (IN OCTAL) FOLLOWED 

604 BY A <CR> 
605 

606 IF <CR> ONLY IS TYPED THE PROGRAM WILL USE 

607 A DEFAULT ADDRESS OF 760020(8) 
608 

609 IF AN INVALID ADDRESS IS TYPED THE PROGRAM 

610 WILL RESPOND WITH AN ERROR MESSAGE AND ASK 

611 YOU TO TRY AGAIN. 

612 

613 10. NEXT THE PROGRAM WILL ASK FOR A VECTOR ADDRESS 

614 11. TYPE IN THE VECTOR ADDRESS FOLLOWED BY A <CR> 
615 

616 IF <CR> ONLY IS TYPED THE PROGRAM WILL USE 

617 A DEFAULT VECTOR ADDR OF 330(8) 
618 

619 IF AN INVALID ADDRESS IS TYPED THE PROGRAM 

620 WILL TYPE AN ERROR MESSAGE AND ASK YOU TO TRY AGAIN. 
621 

622 12. NEXT THE P.\OGRAM WILL ASK FOR THE LINE NO. TO TEST 

623 13. TYPE IN THE LINE NO. (IN OCTAL 00-17) FOLLOWED 

624 BY A <CR> 
625 

626 IF A <CR> ONLY IS TYPED THE PROGRAM WILL DEFAULT 

627 TO LINE #00. 
628 

629 14. NEXT THE PROGRAM WILL ASK YOU IF YOU WANT TO 

630 CHANGE LINE PARAMETERS. 

631 15. TYPE 'V FOR YES - "N" OR <CR> FOR NO FOLLOWED BY 
' 632 A <CR>. 

633 

634 IF 'NO" THE PR06RAM WILL DEFAULT TO THE LAST 

635 LINE PARAMETERS TYPED IN OR IF THIS IS THE 

636 FIRST DIALOGUE IT WILL DEFAULT TO 9600 BAUD. 

637 8 BIT CHARS. 1 STOP BIT, AND ODD PARITY. 
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IF YOU TYPED "Y" IN (15) DO STEPS (17) THRU (21) 
OTHERWISE GO TO STEP (22) 

WHEN THE PROGRAM ASKS FOR TRANSMITTER SPEED 
TYPE IN ONE OF THE 13. LEGAL SPEEDS IN DECIMAL 
FOLLOWED BY A <CR>. 

WHEN THE PROGRAM ASKS FOR RECEIVER SPEED T fPE 
IN ONE OF THE 13. LEGAL SPEEDS IN DECIMAL 
FOLLOWED BY A <CR>. 

NOTE: FOR (17) AND (18) IF THE SPEED DESIRED 
IS 134.5, TYPE IT WITHOUT THE DECIMAL 
POINT. 

REFER TO PARA 5.2.3 FOR DESCRIPTION OF SPEED 
TABLES. 

WHEN THE PROGRAM ASKS FOR CHAR LENGTH, TYPE 

IN THE NO. DESIRED FOLLOWED BY A <CR> 

WHEN THE PROGRAM ASKS FOR THE NO. OF STOP BITS 

TYPE IN THE NO. DESIRED FOLLOWED BY A <CR> 



0 FOR ODD 

E FOR EVEN 

<CR> FOR NONE 



TYPE IN THE FILLER CHAR FOLLOWED BY A <CR> 

IF A <CR> ONLY IS TYPED THE PROGRAM WILL USE 
A "NULL" FILLER WHICH IS THE NORMAL CASE. 



TYPE IN THE COUNT IN OCTAL FOLLOWED BY A <CR>. 

IF A <CR> ONLY IS TYPED THE PROGRAM WILL DEFAULT 
TO ONE FILLER. IF A NO. GREATER THAN 4 BITS 
IS TYPED THE PROGRAM WILL TRUNCATE IT TO 4 BITS. 
THE MAXIMUM COUNT ALLOWED IS 15(10). 



MODE. TYPE A "Y" IF YES - 'V OR "<ZK>" IF NO. 
IF YOU TYPED 'V IN RESPONSE TO (24) THE PROGRAM 
WILL ASK YOU TO TYPE IN THE SEND BUFFER ON THE 
CONSOLE TTY. WHEN YOU WANT TO SEND THIS BUFFER TO 
THE TEST TERMINAL ON THE DH11 TYPE A * tONTROL-C". 

NOTE: ALWAYS START THE BUFFER WITH A 

<CR><LF> TO MAKE IT EASIER TO 
INTERPRET THE DISPLAY ON THE DH11 
TERMINAL WHEN THE BUFFER IS SENT. 

AFTER THE TEST BUFFER IS SENT THE PROGRAM WILL 
ASK FOR LINE # AGAIN AND YOU REPEAT THE SEQUENCE 
STARTING WITH STEP (12) ABOVE. 
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27. IF YOU TYPED SOME CHAR OTHER THAN "Y" IN RESPONSE 
TO (24) THE PROGRAM WILL ASSUME "ECHO' ' MODE AND 
ASK YOU TO TYPE IN ON THE TEST TERMINAL CONNECTED 
TO THE LINE UNDER TEST. 

28. NOW GO TO THE 'EST TERMINAL AND BEGIN TYPING. 
(IF THIS IS A REMOTE TERMINAL, ESTABLISH 
APPROPRIATE MODEM CONNECTION.) 

EACH CHAR TYPED SHOULD BE ECHOED ON THE DH11 TEST 
TERMINAL. IF YOU WANT TO ECHO AN ENTIRE BUFFER 
TYPE "COf ITROL-E" AND THE PROGRAM WILL ECHO THE 
EN T IRE BUFFER TYPED IN ON THE TERMINAL TO THAT 
POINT. 

29. TO CHANGE LINE K AND PARAMETERS - TYPE "CONTROL-C" 
ON THE DH11 TEST TERMINAL AND RETURN TO THE CONSOLE 
TERMINAL 

30. TO TEST A DIFFERENT DH11 UNIT, THE PROGRAM MUST 
BE RESTARTED AT 0002K(8). 
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713 2.1.2.3 SUBPROGRAM 3 DH11 SJNGlE LINE DATA PATTERNS/CABLE TESTS 

7H 

715 

716 1. TERMINATE THE LINE TO BE TESTED WITH AN H315 

717 TEST CONNECTOR. 

7 18 2. SET THE HALT/ENABLE SWITCH TO HALT 

719 3- SET THE SR=000220(8) 

720 4. DEPRESS LOAD ADDRESS 

721 5. SET THE SR=000001 (TO INHIBIT THE AUTOSIZER) 

722 NOTE: WHEN THE AUTOSIZER IS NOT INHIBITED, 

723 THAT IS SR=000000, IT WILL LOAD THE FIRST DH 

724 CSR ADDRESS AND VECTOR FOUND AND TEST THAT 

725 DEVICE ONLY. IF ANY OTHER DH'S ARE TO BE 

726 TESTED, THE CSR ADDRESS AND VECTOR MUST BE 

727 INPUT MANUALLY. THAT IS SR=000001 . 

728 6. SET THE HALT/ENABLE SW TO ENABLE 

729 7. DEPRESS START 

730 8. THE PROGRAM WILL TYPE THE TITLE MESSAGES 

731 AND ASK FOR THE NO. OF ADDRESSES BETWEEN VECTORS. 

732 TYPE EITHER A 'TO" OR "20" AS DESCRIBED IN 

733 PARA 2 12 1 (B 7) 

734 9. NEXT THE "PROGRAM WILL ASK FOR THE DH11 DEVICE ADDRESS 

736 TYPE IN THE DEVICE ADDRESS (IN OCTAL) FOLLOWED 

737 BY A <CR> 
738 

739 IF <CR> ONLY IS TYPED THE PROGRAM WILL USE 

740 A DEFAULT ADDRESS OF 760020(8) 
741 

742 IF AN INVALID ADDRESS IS TYPED THE PROGRAM 

743 - WILL RESPOND WITH AN ERROR MESSAGE AND ASK 
74^ YOU TO TRY AGAIN. 

745 

746 10. NEXT THE PROGRAM WILL ASK FOR A VECTOR ADDRESS 

747 11. TYPE IN THE VECTOR ADDRESS FOLLOWED BY A <CR> 
748 

749 IF <CR> ONLY IS TYPED THE PROGRAM WILL USE 

£50 A DEFAULT VECTOR ADDR OF 330(8) 

752 IF AN INVALID ADDRESS IS TYPED THE PROGRAM 

753 WILL TYPE AN ERROR MESSAGE AND ASK YOU TO TRY AGAIN. 
754 

755 ^2.NEXT THE PROGRAM WILL ASK FOR THE LINE NO. TO TEST 

756 13. TVPE IN THE LINE NO. (IN OCTAL 00-17) FOLLOWED 

757 BY A <CR> 
758 

759 IF A <CR> ONLY IS TYPED THE PROGRAM WILL DEFAULT 

760 TO LINE *00. 
761 

762 14. NEXT THE PROGRAM WILL ASK YOU IF YOU WANT TO 

763 CHANGE LINE PARAMETERS. 

764 15. TYPE "Y" IF YOU DO - "M" OR <CR> IF YOU DON'T 
765 

766 IF 'NO" THE PROGRAM WILL DEFAULT TO THE LAST 

767 LINE PARAMETERS TYPED IN OR IF THIS IS THE 

768 FIRST DIALOGUE IT WILL DEFAULT TO 9600 BAUD. 
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8 BIT CHARS. 1 STOP BIT, AND ODD PARITY. 

16 IF YOU TYPED "Y" IN (15) DO STEPS (17) THRU (21) 
OTHERWISE GO TO STEP (22) 

17. WHEN THE PROGRAM ASKS FOR TRANSMITTER SPEED 
TYPE IN ONE OF THE 13. LEGAL SPEEDS IN DECIMAL 
FOLLOWED BY A <CR>. 

18. WHEN THE PROGRAM ASKS FOR RECEIVER SPEED TYPE 
IN ONE OF THE 13. LEGAL SPEEDS IN DECIMAL 
FOLLOWED BY A <CR>. 

NOTE: FOR (17) AND (18) IF THE SPEED DESIRED 
IS 134.5, TYPE IT WITHOUT THE DECIMAL 
POINT. 

19. WHEN THE PROGRAM ASKS FOR CHAR LENGTH. TYPE 
IN THE NO. DESIRED FOLLOWED BY A <CR> 

20. WHEN THE PROGRAM ASKS FOR THE NO. OF STOP BITS 
TYPE IN THE NO. DESIRED FOLLOWED BY A <CR> 

21. WHEN THE PROGRAM ASKS FOR PARITY, TYPE IN: 



0 
E 

<CR> 



FOR ODD 
FOR EVEN 
FOR NONE 



FOLLOWED BY A <CR> 

22. THE PROGRAM WILL NEXT ASK FOR THE FILLER CHARACTER. 
TYPE IN THE FILLER CHAR FOLLOWED BY A <CR> 

IF A <CR> ONLY IS TYPED THE PROGRAM WILL USE 
A "MULL" FILLER WHICH IS THE NORMAL CASE. 

23. THE PROGRAM WILL NEXT ASK FOR THE FILLER COUNT. 
TYPE IN THE COUNT IN OCTAL FOLLOWED BY A <CR>. 

IF A <CR> ONLY IS TYPED THE PROGRAM WILL DEFAULT 
TO ONE FILLER. IE A NO. GREATER THAN 4 BITS 
IS TYPED THE PROGRAM WILL TRUNCATE IT TO 4 BITS. 
THE MAXIMUM COUNT ALLOWED IS 15. 

24. NEXT THE PROGRAM WILL ASK YOU THE BUFFER SIZE. 
TYPE IN A DECIMAL NO. BETWEEN 1 to 512. FOLLOWED 
BY A <CR>. 

IF A <CR> ONLY IS TYPED THE PROGRAM WILL DEFAULT 
TO A BUFFER SIZE OF 256. BYTES. 

IF THE NO. TYPED IS TOO LARGE AN ERROR MESSAGE 
IS TYPED AND YOU ARE ASKED TO TRY AGAIN. 

25 - M OTsTsrSS/B Z SSI % ESFS 

26. StTOKs™. <«» TO SELECT THE PATTERN 
AS DESCRIBED BELOW: 
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aps A ALTERNATING 1/0 

SpA U BINARY UP COUNT 

ip? D BINARY DOWN COUNT 

Spa R RANDOM DATA 

apa B TYPED IN BUFFER 

Ho S SINGLE CHARACTER 

831 <CR> SEOUENCE OF A.U.D, AND R 

Q7p 

033 27. IF YOU TYPtrD A,U,D.R, OR <CR>. THE PROGRAM WILL 

334 TRANSMIT, RECEIVE , AND DATA r HECK THE SELECTED PATTERN. 
R35 

836 SR07=1 IT WILL LOCK ON TMS PATTERN 
837 

039 SR07 0 IT WILL RETURN TO STEP (24) 

fl/n AFTER COMPLETING THE TEST OF THIS 

§41 PATTERN AND ASK FOR A NEW PATTERN. 

842 

0/3 28. IF YOU TYPED A 'B" IN (26) THE PROGRAM WILL ASK 

57/ YOU TO TYPE IN A TEST PATTERN AND TERMINATE IT WITH 

845 A "CONTROL-C". WHEN THE PROGRAM SENSES THE TERMIN- 

rZ 6 ATOR IT WILL BEGIN EXECUTION AS IN (27) USING THE 

847 THE TYPED IN BUFFER AS THE PATTERN. 

848 29. IF YOU TYPED AN "S" IN RESPONSE TO (26) THE PROGRAM 
840 WILL ASK FOR A SINGLE CHAR. TYPE A SINGLE CHAR 
850 FOLLOWED BY A <CR>. THE PROGRAM WILL F ILL THE BUFFER 
asi WITH THE TYPED IN CHAR AND BEGIN EXECUTION AS IN (27) 
85? USING THE BUFFER FULL OF THE TEST CHAR AS A PATTERN. 

853 30. TO CHANGE DH1 1 "S, LINE PARAMETERS ETC. YOU MUST 

854 RESTART THE TESTS AT LOC. 000220(8). 
855 

856 2.1.3 RESTART PROCEDURES 

857 

858 

859 SAME AS THE STARTING PROCEDURES 
860 
861 
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§62 2.2 SOCIAL ENVIRONMENTS 
863 



864 

865 2.2.1 ACT1 1/ THE PROGRAM MAY BE LOADED BY THE ACT1 1/APT1 1 

§66 APT11 SYSTEMS. AND MAY BE RUN AS PART OF A OUICK 

|67 VERIFY CHAIN SINCE THE PROGRAM CONTAINS AN AUTOSIZER. 

869 2.2.2 XXDP THE PROGRAM MA> BE LOADED AND RUN FROM 

870 ANY "XXDP" MEDIUM PROVIDED THERE IS AT LEAST 

871 12K OF CORE. IT MAY BE RUN AS PART OF AN 

872 "XXDP" CHAIN. 
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2.2.3 SUITCHLESS FEATURE 
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2.3 



IF THE DIAGNOSTIC IS RUN ON A CPU WITHOUT A SWITCH 
REGISTER THEN A SOFTWARE SWITCH REGISTER IS USED WHICH ALLOWS 
THE USER THE SAME SWITCH OPTIONS AS THE HARDWARE SWITCH REGISTER. 
IF THE HARDWARE SWITCH REGISTER DOES NOT EXIST OR IF ONE DOES 
AND IT CONTAINS ALL ONES (177777) THEN THE SOFTWARE SWITCH 
REGI S T ER (LOC. 176) IS USED. 

CONTROL: 

THIS PROGRAM ALSO SUPPORTS THE DYNAMIC LOADING OF THE SOFTWARE SWITCH 
REGISTER (LOC. 176) FROM THE TTY. THIS CAN BE ACCOMPLISHED BY 
DOING THE FOLLOWING: 

1) TYPE CONTROL G ' A G>; THIS WILL ALLOW THE TTY TO ENTER DATA INTO 
LOC. 176 AT SELECTED POINTS WITHIN THE PROGRAM. 

2) THE MACHINE WILL THEN TYPE: SWR=XXXXXXNEW= (XXXXXX IS THE OCTAL CONTENTS 
OF THE SOFTWARE SWITCH REGISTER.) 

3) AFTER THE "NEW^' HAS BZEN TYPED THEN THE OPERATOR CAN DO ONE 
OF THE FOLLOWING AT THE TTY: 

A) TYPE A NUMBER TC BE LOADED INTO LOC. 176 FOLLOWED BY A <CR>. 
(ONLY OCTAL NUMBERS WILL BE ACCEPTED AND ONLY 6 NUMBERS 
WILL BE ALLOWED) 

IF A <CR> IS THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED. 

B) IF A CONTROL U <*U> IS DEPRESSED THEN THE PROGRAM WILL DO A <CR>. 
RETYPE THE DESIRED NUMBER. 

PROGRAM OPTIONS 



2.3.1 CONSOLE SWITCH REGISTER 



A. SUB-PROGRAM 1 

SR15=1 
SR14=1 
SRI 3=1 

SR8=1 



SR7=1 
SR7=0 

SR1=1 



DH11 DATA RELIABILITY TESTS 
HALT ON ERROR 

LOOP ON CURRENTLY SELECTED DHll 

INHIBIT ERROR, PROGRESS, AND 

PERFORMANCE PRINTOUTS 

HALTS AFTER CONFIGURATION TO PERMIT 

DUMPING PRE CONFIGURED COPIES OF THE 

PROGRAM. 

PERFORMS A STANDARD PASS (NOT QUICK VERIFY.) 
QUICK VERIFY - DO COMPLETE TESTING 
ON EACH LINE AT 9600. BAUD ONL v 
TVPES DEVICE MAP GENERATED BY THE 
AUTOSIZER. 
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SR0=1 



B. SUB-PROGRAM 2 

(NONE) 

C. SUB-PROGRAM 3 

SRI 5=1 
SRI 3-1 
SR07-1 

2.3.2 CORE MEMORY LOCATIONS 
A. SUB-PROGRAM 1 



ALLOWS THE USER TO INPUT DH PARAMETERS 
MANUALLY. (INHIBITS THE AUTOSIZER.) 

DH11 SINGLE LINE ECHO TESTS 



DH11 SINGLE LINE PATTERNS/CABLE TESTS 
HALT ON ERROR 

INHIBIT ERROR AND STATUS PRINTOUTS 
LOOP ON CURRENT TEST PATTERN 



0H1 1 DATA RELIABILITY TESTS 



WHEN THE AUTOSIZER OPTION IS USED. THIS PROGRAM 
CAN RUN NON-STANDARD DH11 CONFIGURATIONS (NON- CONTIGUOUS 
ADDRESSES). THE USER CAN ALSO PATCH IN HIS OWN ADDRESSES TO MATCH 
HIS CONFIGURATION AND THEN USE THE DEFAULT START TO RUN THE 
UPDATED PROGRAM. THE TABLES AND LOCATIONS TO MODIFY ARE DES- 
CRIBED BELOW: 

1) DEVICE ADDRESS TABLE 

THERE IS A 16. WORD TABLE STARTING AT THE ADDRESS 
TAGGED "DHADTB:" THAT IS PROGRAM LOADED TO SPECIFY 16. 
CONTIGUOUS DH1TS STARTING AT THE BUS ADDRESS 160020(8). 
THIS TABLE IS MODIFIED AT CONFIGURATION TIME IF THE 
USER TYPES IN A DIFFERENT STARTING ADDRESS. OR IT MAY 
BE PATCHED TO REFLECT ANY UNIQUE DH11 SYSTEM CONFIGURATION. 

2) VECTOR ADDRESS TABLE 

THERE IS A 16. WORD TABLE STARTING AT THE ADD- 
RESS TAGGED 'DHVCTB:" THAT IS PROGRAM LOADED TO 
SPECIFY 16. CONTIGUOUS VECTORS STARTING WITH 330(8) 
AND EACH ENTRY DISPLACED BY 8. WORDS (330.350.370. ETC.) 
THIS TABLE IS MODIFIED AT CONFIGURATION TIME IF THE USER 
TYPES A DIFFERENT STARTING VECTOR ADDRESS. OR IT 
MAY BE PATCHED TO REFLECT ANY UNIQUE DH11 SYSTEM CON- 
FIGURATION. 

3) BR LEVEL TABLE 

THERE IS A 16. WORD TABLE STARTING AT THE ADDRESS 
TAGGED 'BRLVL :" THAT IS PROGRAM LOADED TO CONTAIN A 
120240(8) IN EACH ENTRY WHICH SPECIFIES BR LEVEL 5 
FOR BOTH XMIT AND RECEIVE FOR ALL 16. DH1TS. IT IS NOT 
CHANGED AT CONFIGURATION TIME BUT MAY BE PATCHED TO 
REFLECT ANY UNIQUE DH11 SYSTEM CONFIGURATION. 

4) DEVICE SELECTION PARAMETER 
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THERE IS A WORD TAGGED "DHSEL:" THAT IS PROGRAM 
LOADED TO CONTAIN A 000001(8) WHICH SELECTS ONLY ONE 
DH11 (DH11 #00). THIS LOCATION CAN BE MODIFIED AT 
CONFIGURATION 1 IME TO SPECIFY ANY COMBINATION OF 
DH1TS UP TO A MAXIMUM OF 16. UNITS. REFER TO 
PARA 2.1.3.1 (8 10) FOR A DESCRIPTION OF ITS ENCODING. 

5) LINE SELECTION PARAMETER (PARA 2.1.2.1 (811)) 

THERE IS A WORD TAGGED "LINSEL:" THAT IS 
PROGRAM LOADED AS 177777(8) TO SPECIFY ALL 16. 
LINES ARE TO BE TESTED IN EACH SELECTED DH11. 
IT MAY BE MODIFIED AT CONFIGURATION TIME TO SPECIFY 
ANY COMBINATION OF LINES TO TEST. REFER TO SECTION 
2.1.2 (8 11) FOR A DESCRIPTION OF ITS ENCODING. 



SEO 0023 



NOTE; 



B. SUB-PROGRAM 2 

(NONE) 

C. SUB-PROGRAM 3 

DPATLIM: 



THE DATA RELIABILITY PROGRAM IS TABLE 
DRIVEN IN THAT IT USES 't>HSEL :" . 
"LINSEL:" AND THE CONTENTS OF THE 
THREE 16. WORD TABLES TO DEFINE THE 
DH11 CONFIGURATION TO BE TESTED. 

DH11 SINGLE LINE ECHO TESTS 



DH11 SINGLE LINE PATTERNS/CABLE TESTS 



10. 



THERE IS A LOCATION TAGGED 'PATLIM:" THAT 
SPECIFIES THE NO. OF TEST PATTERN ITERATIONS TO EXECUTE 
IN THE PATTERNS TESTS. IT IS PROGRAM LOADED TO SPECIFY 
TEN ITERATIONS BEFORE THE "TEST DONE" REPORT IS TYPED. 

2) DATCNT: 

THERE IS A LOCATION TAGGED ' DATCNT:" THAT KEEPS 
A COUNT OF THE NO. OF ITERATIONS COMPLETED DURING THE 
PATTERNS TESTS. THIS INFORMATION GETS TYPED OUT AS 
PART OF THE ERROR MESSAGE IF A DATA ERROR OCCURS 
IN THE PATTERNS TEST UNDER THE HEADING "I COUNT". 



CZDHN-D MACY11 30A(10S2) 27-DEC-78 15:31 PAGE 25 L 

CZDHND.P1 1 27-DEC-78 15:28 S IQ 002*. 

1035 2.4 EXECJTION TIMES 

'036 

103? 

1038 A. SUB-PROGRAM 1 DH11 DATA RELIABILITY TESTS 

1039 

^040 

1041 1. SR07=0 QUICK TEST 

1042 

1043 APPROXIMATELY 15. SECONDS FOR EACH LINE WITH 

1044 1824 CHARS BEING TRANSMITTED AND RECEIVED. 
1045 

1046 2. SR7=1 COMPLETE TESTING 

1048 APPROXIMATELY 15. MINUTES FOR EACH LINE WITH 

1049 18.720 CHARS BEING TRANSMITTED AND RECEIVED ON EACH 

1050 LINE SELECTED FOR TEST. 
1051 

1052 B. SUB-PROGRAM 2 DH11 SINGLE LINE ECHO TESTS 

1054 —————— 

1055 NOT APPLICABLE SINCE THESE TESTS INVOLVE THE 

1056 USER MANUALLY TYPING IN ON THE TERMINAL. 
1057 

1058 C. SUB-PROGRAM 3 DH11 SINGLE L'NE PATTERNS/CABLE TESTS 

1060 

1061 EXECUTION TIMES VARY FROM LESS THAN 5 SECONDS TO GREATER 

1062 THAN 15. MINUTES DEPENDING UPON BUFFER SIZE, LINE PARAMETERS, AND 

1063 PATTERN SELECTED. 
1064 
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3.0 ERROR INFORMATION 

3.1 ERROR REPORTING PROCEDURES 

3.1.1 STANDARD SYSMAC.SML ERROR REPORTING CONVENTIONS 

THE PROGRAM UTILIZES THE STANDARD PDP11 DIAGNOSTICS ERROR 
UTILITIES. THE TEST ROUTINE CALLS THESE UTILITIES USING AN 
"ERROR N" INSTRUCTION (CODED EMT) WHERE "N" IS THE NUMBER 
OF THE ERROR MESSAGE. THE UTILITY ROUTINE USES "N" TO 
ACCESS THE PROPER ERROR INFORMATION VIA THE ERROR TABLE 
DESCRIBED IN SECTION 3.1.2 BELOW. EACH MESSAGE RESULTS 
IN THREE LINES OF TYPE OUT AS FOLLOWS: 

LINE 1 A BR T EF DESCRIPTION Of THE FAILING FUNCTION 
LINE 2 LABELS TO IDENTIFY THE DATA TYPED ON LINE 3 
LINE 3 THE ACTUAL ERROR DATA (UP TO 8 OCTAL OR DECIMAL NO.S) 

EXAMPLE: 

SYSTEM CONTROL REGISTER ERROR 

(PC) (PS) (SP) TEST DEVADR REGADR WAS S/B 

002720 000002 001074 000003 160020 160020 000000 000001 

THE ERROR TABLE ITEMS SHOWN IN THE NEXT SECTION DESCRIBE ALL 
THE ERROR MESSAGES WITHIN CZDHND AND ARE INTERPRETED 
AS FOLLOWS: 

EM ADDRESS OF THE MESSAGE FOR LINE 1 

DH ADDRESS Of THE DATA HEADER MESSAGE FOR LINE 2 

DT ADDRESS Of THE TABLE Of ADDRESSES THAT POINT 

TO THE DATA WORDS TO BE PRINTED 
DF ADDRESS THAT POINTS TO THE DATA DESCRIPTOR 

TABLE THAT DEFINES WHETHER AN ITEM IS OCTAL OR DECIMAL. 

IF THIS ENTRY IS ALL DATA WORDS ARE IN OCTAL. 

SECTION 3.1.3 DEFINES THE MEANING OF THE MNEUMONICS USED 
IN THE VARIOUS DATA HEADERS. 



SEG 0025 
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N 2 



SEO 0026 



1106 


3. 1 .2 


FRR0R 


1107 






1108 






1109 






1110 






1111 


; ERROR 


t a m r - 

TA8LE 


1112 






1113 




EMI 


1114 




DH1 


1115 




DTI 


1116 




DF<: 


1117 






1118 


; ERROR 


T AO t C 

TABLE 


1119 






1120 




EM2 


1121 




rv i ii 

DH I 


1122 




DT I 


1123 






1124 






1125 


; ERROR 


T AO ( C 

TABLE 


1126 




ru7 


1127 




1128 




DH I 


1129 




DTI 


1130 




Dr £ 


1 1 71 

n 3 1 






1132 




TAD I C 


1133 






4 4 "» y 

1134 




CM/ 

EM** 


4 1 TC 

1135 




DH 1 


1136 




DT 1 


1137 




Dr <: 


1 1 TO 

1138 






4 4 tt~\ 

1139 


. C DDnD 

; cRROK 


T AOl C 

TABLE 


44/A 

1140 






1141 




CMC 

EM!) 


1 142 




DH I 


1143 




f\T 1 

DTI 


1 144 






1145 






4 1// 


; t KHUN 


TAOI C 

lAoLfc 


4 4 7 7 






11/ o 

1148 




cno 


11/n 




DHT 


1 1 Crt 

1150 




ATI 

DTI 


1151 




Dr C 


1 1 CI 

115<f 






1155 


« CDDHD 


I ABLE 








1155 




EM? 


1156 




DH1 


1157 




DT1 


1158 


$ 


DF2 


1159 






1160 


; ERROR 


TABLE 


1161 







ITEM FOR ERROR 1 



'NON EX MEMORY ERROR - DROPPED LINE * 
" (PC) CURLPR DEVADR RE6ADR WAS 
' SERRPC . CURL PR . SREG1 . SREG2 . $REG3 . $REG4 
PRINT ALL OCTAL 



S/8' 



ITEM FOR ERROR 2 



"TRANSMITTER FALSE INTERRUPT - DROPPED LINE* 
" (PC) CURLPR DEVADR REGADR WAS S/8' 
' VRRPC , CURLPR ,$REG1 ,SREG2,$REG3,$REG4 
PRINT ALL OCTAL 



ITEM FOR ERROR 3 



'BUFFER ACTIVE REGISTER ERROR - DROPPED LINE * 
" (PC) CURLPR DEVADR REGADR WAS S/8" 
' SERRPC .CURLPR , $RE G1 . SREG2 , $RE G3 , $REG4 
PRINT ALL OCTAL 



ITEM FOR ERROR 4 



'BYTE COUNT REGISTER ERROR - DROPPED LINE M ' 
" (PC) CURLPR DEVADR REGADR WAS S/8" 
' *ERRPC . CURLPR . SREG1 ,SREG2 . SREG3 . SREG4 
PRINT ALL OCTAL 



ITEM FOR ERROR 5 



"CURRENT ADDRESS REGISTER ERROR - DROPPED LINE # 
" (PC) CURLPR DEVADR REGADR WAS S/B" 
"SERRPC, CURLPR, SREG1 ,$REG2.SREG3,$REG4 
PRINT ALL OCTAL 

ITEM FOR ERROR 6 

"SILO OVERFLOW ERROR - DROPPED LINE * " 
" (PC) CURLPR DEVADR REGADR WAS S/B" 
•*ERRPC.CURLFR.SREG1.$REG2.$REG3,$REG4 
PRINT ALL OCTAL 

ITEM FOR ERROR 7 

"RECEIVER FALSE INTERRUPT - LINE * " 
" (PC) CURLPR DEVADR REGADR WAS S/B" 
' tERRPC , CURLPR ,$REG1 . SREG2 . SREG3 . SREG4 
PRINT ALL OCTAL 

ITEM FOR ERROR 10 
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ruin 
fcn 1 U 


1 1 4.7. 






lioA 




r> T "3 


1 1 0 J 




Vr d 


1166 






1 1 or 


. t KHUK 


TAQl r 

lAoLt 


MOO 






4 ^ Z f"\ 

1169 




rfjl 1 


I 1 f\J 




One 


I 1 71 

II ft 




D 1 <r 


I 1 ~7~? 

I I re 




Dr c: 


1 1 71 






117/ 


. C DDDD 


T AQI C 


I I f J 




1 1 7A. 

1 1 /O 




rul J 

tn i c 


1 1 77 
tiff 




VsLiX 


1 1 7ft 

I I fO 




U 1 J 


I I f 7 




r\c ■? 
l)r c 


1 1 OU 






I lo I 


• cDonD 

, tKKUK 


TAQl P 
1 AfcJLt 


I I Oil 






1 1 ax 

l 1 03 




IMU 1 C 


1 1 ft/. 
I i o*» 






1 IOj 






I IOO 






1 IO> 






1 1 BR 
I IOO 






1 1 SO 
I IOT 




A 
U 


1 ion 

1 1 TV 




V 1 *• 


1 101 

1 It 1 




r»Fi 


1 103 
1 ITC 






1 io*< 

1 I7J 


. tltrxurx 


T API P 


1 1QZ. 

I I T*» 




i iq*; 

1 1 / I 




CM1 / 
Cm 1 ** 


1 ITO 




flu/ 


1 197 






1 10ft 

I I TO 




r>F? 


1 1OO 

1 ITT 






I r\AJ 


• FDDOP 


TAQl C 
IMOLC 


1 ?ni 

1 cU 1 




1 cue 




cmi <; 
cn i j 


1 ?nx 






1 ">C\L 




V 1 j 


I CM J 




ur 


1 cvu 






I C\Jf 


■ 1- DDDD 
, tKNUn 


TAQl P 


1208 




1 209 




EM16 


1210 




DH5 


1211 




DT6 


1212 




DF2 


1213 







B 3 



"INVALID DATA IN SILO - DROPPED LINE # " 

(PC) CURLPR CHAR # WAS ADR SH8ADR WAS 
SERRPC, CURLPR. $REG0,$RFG1.$REG2,$REG3.$REG4 
PRINT ALL OCTAL 



SEQ 0027 



S/8* 



ITEM FOR ERROR 11 



"DATA ERROR - LINE # " 

(PC) CURLPR CHAR # WASADR SH8ADR WAS 
SERRPC .CURLPR . $RE G0,$PEG1 , $RE G2 . $RE G3 . $RE G4 
PRINT ALL OCTAL 



S/8' 



ITEM FOR ERROR 12 

"TEST TIMEOUT - DROPPED LINE * " 
" (PC) CURLPR RTOTAL XTOTAL RDONE" 
"SE RRP C , C URL PR . $ TMPO , $ TMP 1 RDONE " 
PRINT ALL OCTAL 

ITEM FOR ERROR 13 

ERROR 13 IS CALLED TO PRINT EACH LINE OF DATA IN THE 
ERROR STATISTICS TABLE. IT PRINTS ONLY DATA' Wl THOUT ANY 
MESSAGE OR DATA HEADERS - 



NO MESSAGE 

NO DATA HEADER 

$ T MPO . $ TMP ; . S TMP2 . $ TMP3 . $ TMP4 . $ TMP5 , S TMP6 
PRINT ALL DECIMAL 



ITEM FOR ERROR 14 



'BUS ERROR TRAP fO 04" 
" (PC) (PS) (SP) TRAPPC 
SERRPC.$rMP0.$REG6.$REG1 .SREG2" 
PRINT ALL OCTAL 



TRAPPS' 



ITEM FOR ERROR 15 



"RSVD INSTR TRAP TO 10" 
" (PC) (PS) (SP) TRAPPC 
$ERRPC,$rMP0.SREG6.SREG1 .SREG2" 
PRINT ALL OCTAL 



TRAPPS' 



ITEM FOR ERROR 16 



"SINGLE LINE ECHO TEST - INTR WAIT TIMEOUT" 
" (PC) DEVADR LINE (SCR) CURLPR EX C LAG' 
SERRPC.SREG1. LINE. STMPO. CURLPR. EXFLAG" 
PRINT ALL OCTAL 
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1214 

1215 

1216 

1217 

1218 

1219 

1220 

1221 

1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1 233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 

1261 

1262 

1263 

1264 

1265 

1266 

1267 
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NOTE: 



C 3 



ERRORS 17 THRU 24 ARE USED TO REPORT PERFORMANCE 
NOT ERRORS. 



SEO 0028 



; ERROR TABLE ITEM FOR ERROR 17 



EM17 
DH6 
DT7 
DF2 



' Alternating 1/0 pattern test done" 
" (pc) devadr line curlpr j count' 
$e rrpc , dhadr .line , curlpr, $re go 
print all octal 



; ERROR TABLE ITEM FOR ERROR 20 



EM20 
DH6 
DT7 
DF2 



'BINARY UP COUNT PATTERN TEST DONE" 
" (PC) DEVADR LINE CURLPR I COUNT' 
SERRPC , DHADR . L I NE , CURLPR , $RE GO 
PRINT ALL OCTAL 



.-ERROR TABlE ITEM FOR ERROR 21 



EM21 
DH6 
DT7 
DF2 



"BINARY DOWN COUNT PATTERN TEST DONE" 
" (PC) DEVADR LINE CURLPR I COUNT' 
SERRPC . DHADR . L I NE . CURLPR , $RE GO 
PRINT ALL OCTAL 



; ERROR TABLE ITEM FOR ERROR 22 



EM22 
DH6 
DT7 
DF2 



"RANDOM DATA PATTERN TEST DONE" 
" (PC) DEVADR LINE CURLPR 
SERRPC . DHADR .LINE, CURLPR . $REGO 
PRINT ALL OCTAL 



ICOUNT* 



.-ERROR TABLE ITEM FOR ERROR 23 



EM23 
DH6 
DT7 
DF2 



SINGLE CHAR PATTERN TEST DONE" 
" (PC) DEVADR LINE CURLPR 
$E RRPC , DHADR , L I NE . CURLPR , $RE GO 
PRINT ALL OCTAL 



ICOUNT' 



.•ERROR TABLE ITEM FOR ERROR 24 



EM24 
DH6 
DT7 
DP 2 



"TYPED BUFFER PATTERN TEST DONE" 
" (PC) DEVADR LINE CURLPR JCOUNT' 
$E RRORPC , DHADR , LINE, CURL PR, SREGO 
PRINT ALL OCTAL 



; ERROR TABLE ITEM FOR ERROR 25 



EM25 
DH7 

DT10 
DF2 



"DATA PATTERNS TEST TIMEOUT" 
" (PC) DEVADR LINE CURLPR ICOUNT 
$E RRPC . DHADR . L I NE , CURL PR . SRE GO . SRE G1 
PRINT ALL OCTAL 



PATCDE" 



D 3 
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1268 


3.1.3 DATA HEADER MNEMONIC DEFINITIONS 


1269 






1270 






1271 


ALL NUMBERS PRINTED AS ERROR DATA ARE IN OCTAL 


1272 






1273 


(PC) 


ADDRESS OF THE ERROR CALL (ERROR PC) 


1274 






1275 


(PS) 


CONTENTS OF THE PSW AT THE TIME OF THE ERROR 


1276 






1277 


(SP) 


CONTENTS OF THE STACK POINTER AT THE TIME OF T HE ERROR 


1278 






1279 


LINE 


INDICATES THE LINE NUMBER THAT FAILED 


1280 






1281 


DEVADR 


DEVICE ADDRESS - 1ST ADDRESS IN THE SELECTED DH11 


1282 






1233 


REGADR 


ADDRESS OF THE DH11 REGISTER BEING TESTED 


1284 






1285 


WAS 


WHAT THE ACTUAL DATA READ UAS (DH11 REG OR CORE LOC.) 


1286 






1287 


S/8 


WHAT THE DATA READ SHOULD HAVE BEEN 


"288 




CONTENTS OF THE PC (R7) AT THE TIME OF A BUS ERROR 


1289 


TRPPC 


1290 




OR RSVD INSTR TRAP. 


1291 






1292 


TRPPS 


CONTENTS OF THE PSW AT THE TIME OF A BUS ERROR 


1293 




OR RSVD INSTR TRAP. 


1294 






1295 


WASADR 


CORE MEMORY ADDRESS OF THE 'V/AS" DATA (ACTUAL DATA READ 


1296 






1297 


S8ADR 


CORE MEMORY ADDRESS OF THE S/8 DATA (GOOD DATA) 


1298 






1299 


CHAR * 


INDICATES THE CHARACTER POSITION IN THE DATA BUFFER 


1300 






1301 


I COUNT 


INDICATES ITERATION COUNT OF DATA PATTERNS TESTS - 


1302 




PROGRAM DEFAULTS TO ITERATING EACH PATTERN 10. TIMES. 


1303 






1304 


PATCDE 


INDICATES PATTERN BEING TESTED WHEN ERROR OCCURRED 


1305 




AS SHOWN BELOW: 


1306 






1307 




PATCDE= 101 ALTERNATING 1/0 PATTERN 


1308 




125 BINARY UP COUNT PATTERN 


1309 




104 BINARY DOWN COUNT 


1310 




122 RANDOM DATA PATTERN 


1311 




123 SINGLE CHAR PATTERN 


1312 




102 TYPED IN BUFFER PATTERN 


1313 






1314 


(SCR) 


INDICATES CONTENTS OF THE '■SCR" REG WHEN ERROR OCCURRED 


1315 






1316 


EXFLAG 


INDICATES STATE OF THE XMITTER INTR SERVICE ROUTINE 


1317 




IN THE ECHO TESTS AS SHOWN BELOW: 


1318 






1319 




EXFLAG= 1 CONTROL-C WAS TYPED 


1320 




2 C0N1R0L-E WAS TYPED 


1321 




3 BUFFER WAS BEING DUMPED 
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1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
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1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
1363 
I364 
1365 
1366 
1367 
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3.2 POWER FAIL PRINTOUT 

IF A POWER FAILURF OCCURS WHILE THE PROGRAM IS RUNNING, 
THE FOLLOWING PRINTOUT OCCURS: 

' POWER' ' 

AFTER THE PRINTOUT THE PROGRAM WILL BE RESTARTED AUTOMATICALLY 
FROM THE BEGINNING. NO ATTEMPT IS MADE TO CONTINUE THE PROGRAM 
FROM THE POINT OF THE POWER FAIL INTERRUPTION. 

3.3 ERROR HALTS 

A. SYSMAC ERROR SERVICE ROUTINE HALT 

WHEN SR15=1 A 'WALT" IS EXECUTED IN THE SYSMAC ERROR 
UTILITY AFTER THE ERROR TYPEOUT. TO RESUME TESTING 
FROM THE POINT OF THE 'HALT" SIMPLY DEPRESS CONTINUE. 

B. POWER FAIL HALT 

WHEN A POWER DOWN IS DETECTED, THE PROGRAM HALTS IN 
THE POWER FAIL UTILITY ROUTINE. IF FOR SOME REASON 
THE AUTO-START FEATURE FAILS TO RESTART THE PROGRAM, 
THE PROGRAM WILL "LOCK" ON THIS HALT IF CONTINUE IS 
DEPRESSED. IN THIS CASE THE PROGRAM MUST BE RESTARTED. 

C. TRAP CATCHER HALTS 

ALL INACTIVE VECTORS ARE SET UP WITH THE STANDARD 
PDP11 TRAP CATCHER AS DESCRIBED BELOW: 

VN / VN+2 
VN+2/ HALT 

IF A TRAP OR INTERRUPT OCCURS TO A VECTOR THAT HAS 
NOT BEEN SET UP BY THE TEST ROUTINE. A "WALT" OCCURS 
IN THE VECTOR AREA. THE ADDRESS DISPLAY INDICATES 
WHICH VECTOR THE PROGRAM TRAPPED TO AND THE LAST ENTRY 
PUSHED ON TO THE STACK INDICATES WHERE THE PROGRAM WAS 
WHEN THE TRAP OR INTERRUPT OCCURRED. 
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1368 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1380 

1381 

1382 

1383 

1384 

1385 

1386 

1387 

1388 

1389 

1390 

1391 

1392 

1393 

1394 

1395 

1396 

1397 

1398 

1399 

1400 

1401 

1402 

1403 

1404 

1405 

1406 

1407 

1408 

1409 

1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 

1418 

1419 

1420 

1421 

1422 

1423 
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F 3 



4.0 
4.1 



PERFORMANCE AND PROGRESS REPORTS 



PERFORMANCE REPORTS 



A. SUB-PROGRAM 1 



DH11 DATA REL JABILI TV TESTS 



AT THE COMPLETION OF EACH PASS THROUGH EACH DH11 UNDER 
EST. OR WHEN INVOKED BY THE USER TYPING AN "S" ON THE CONSOLE 
ERMJNAL. THE STATISTICS TABLE SHOWN BELOW IS TYPED ON THE CONSOLE 

DEVICE. THE TABLE CONSISTS OF "W" ENTRIES WHERE 'NN" IS THE 

NUMBER OF LINES SELECTED FOR TEST. 

DH #NN STATISTICS. 



LINE 0 


RTOTAL 


XTOTAL 


DATERR 


PARERR 


FRMERR 


OVRERR 


LLLLLL 


RRRRRR 


XXXXXX 


DDDDDD 


PPPPPP 


FFFFFF 


000000 


LLLLLL 


RRRRRR 


XXXXXX 


DDDDDD 


pppppp 


FFFFFF 


000000 


LLLLLL 


RRRRRR 


XXXXXX 


DDDDDD 


pppppp 


FFFFFF 


000000 


LLLLLL 


RRRRRR 


XXXXXX 


DDDDDD 


pppppp 


FFFFFF 


000000 


LLLLLL 


RRRRRR 


XXXXXX 


DDDDDD 


pppppp 


FFFFFF 


000000 


LLLLLL 


RRRRRR 


XXXXXX 


DDDDDD 


pppppp 


FFFFFF 


000000 


LLLLLL 


RRRRRR 


XXXXXX 


DDDDDD 


pppppp 


FFFFFF 


000000 


LLLLLL 


RRRRRR 


XXXXXX 


DDDDDD 


PPPPPP 


FFFFFF 


000000 


LLLLLL 


RRRRRR 


XXXXXX 


DDDDDD 


PPPPPP 


FFFFFF 


000000 


LLLLLL 


RRRRRR 


XXXXXX 


DDDDDD 


PPPPPP 


FFFFFF 


000000 


LLLLLL 


RRRRRR 


XXXXXX 


DDDDDD 


PPPPPP 


FFFFFF 


000000 


LLLLLL 


RRRRRR 


XXXXXX 


DDDDDD 


pppppp 


FFFFFF 


000000 


LLLLLL 


RRRRRR 


XXXXXX 


DDDDDD 


PPPPPP 


FFFFFF 


000000 


LLLLLL 


RRRRRR 


XXXXXX 


DDDDDD 


pppppp 


FFFFFF 


000000 


LLLLLL 


RRRRRR 


XXXXXX 


DDDDDD 


PPPPPP 


FFFFFF 


000000 


LLLLLL 


RRRRRR 


XXXXXX 


DDDDDD 


pppppp 


FFFFFF 


000000 


WHERE : 


N 


IS THE 


DHli » IN OCTAL 








L 


If- THE 


LINE # IN OCTAL 








R 


IS THE 


TOTAL NO. 


OF CHARS RECEIVED IN D 




X 


IS THE 


TOTAL NO. 


OF CHARS TRANSMITTED I 




D 


IS THE 


TOTAL NO. 


OF DATA COMPARE ERRORS 




P 


IS THE 


TOTAL NO. 


OF PARITY ERRORS IN DE 
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}^ f IS THE TOTAL NO. OF F RAWING ERRORS IN DECIMAL 

0 I s THE TOTAL NO. OF OVERRUN ERRORS IN DECIMAi 
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1427 

1428 

1429 

1430 

K31 

K32 

1433 

1434 

1435 

1436 

1437 

1438 

1439 

1440 

1441 

1442 

1443 

1444 

1445 

1446 

1447 

1448 

1449 

1450 

1451 

1452 

H53 

1454 

1455 

1456 

1457 
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1. ) IF A LINE WAS DROPPED DURING THE TEST DUE TO AN 

UNRECOVERABLE READ OR WRITE ERROR THE MESSAGE SHOWN 
BFLOW WILL REPLACE THE NORMAL ERROR STATISTICS ENTRY: 

"LINE *NN WAS DROPPED" 

WHERE "NN" IS THE LINE NO. JN OCTAL. 

2. ) It THE PRINTOUT IS INVOKED BY TYPING AN "S" , THE 

'ftTOTAL" AND "XTOTAL" ENTRIES MAY OR MAY NOT BE EQUAL 
DEPENDING UPON WHEN THE PROGRAM "SAW*' THE "S". 

3. ) AFTER PRINTING THE ERROR STATISTICS TABLE , THE PROGRAM 

WILL RESTART AND BEGIN TESTING THE NEXT DH11 IN SEOUENCE. 

IF ONLY ONE DH11 IS SELECTED FOR TEST OR SR14=1, THE SAME DM1 

WILI BE TESTED AGAIN. 



B. SUB-PROGRAM 2 

1) SEND MODE: 

2) ECHO MODE: 

C. SUB-PROGRAM 3 

(NONE PROVIDED) 



DH11 SINGLE LINE ECHO TESTS 

THE DISPLAY ON THE DH11 TEST TERMINAL 
SHOULD MATCH THE BUFFER TYPED IN ON 
THE CONSOLE TERMINAL. 

THE CHARACTERS ECHOED ON THE DM1 TEST 
TERMINAL SHOULD MATCH THE CHARACTERS 
TYPED ON THE TEST TERMINAL KEYBOARD. 

DH11 SINGLE LINE PATTERNS/CABLE TESTS 
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4.2 PROGRESS REPORTS 



A. SUB-PROGRAM 1 



I 3 
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1/H11 DATA RELIABILITY TESTS 



1. EACH TIME A NEW DH11 IS SELECTED FOR TEST 
THE PROGRAM TYPES: 

"TESTING DH11 *NN" 

WHERE "m" IS THE NO. IN OCTAL OF THE DH11 
CURRENTLY BEING TESTED. (00 - 17) 

2. EACH TIME A NEW LINE IS SELECTED FOR TEST 
THE PROGRAM TYPES. 

"TESTING LINE *NN" 

WHERE "W" IS THE LINE NO. IN OCTAL (00 - 17) 

3. AFTER COMPLETE TESTING OF ALL SELECTED DH1 1 ' S THE 
FOLLOWING MESSAGE IS PRINTED: 



"END PASS 
WHERE : N 



#NNNNN" 

IS THE NO. OF COMPLETE PROGRAM 
PASSES DURING THE CURRENT "RUN" 



B. SUB-PROGRAM 2 



DH11 SINGLE LINE ECHO TESTS 



(NONE SUPPLIED) 

C. SUB-PROGRAM 3 DHll SINGLE LINE PAT TERNS/ CABLE TESTS 

EACH TIME A SPECIFIC TEST PATTERN TEST IS COMPLETED 

(10. ITERATIONS) THE FOLLOWING MESSAGE IS TYPED: 

•*AME" PATTERN TEST DONE 

(PC) DEVADR LINE CURLPR ICOUNT 

PPPPPP DDDDDD LLLLLL CCCCCC 1 1 II 1 1 



WHERE : NAME 

P 
D 
L 

C 
l 



IS THE NAME OF THE PATTERN - IE "RANDOM". 

' BINARY UP COUNT". ETC 

IS THE PC OF THE MESSAGE CALL 

IS THE ADDRESS OF THE DH11 UNDER TEST 

IS THE LINE NO. BEING TESTED 

IS THE CONTENTS OF THE "LPR" DURING ThE TEST 

IS THE NO. OF TEST PATTERN ITERATIONS COMPLETED 



THIS TYPEOUT MAY BE INHIBITED BY SETTING SR13=1. 
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1514 5.0 DH11 DEVICE INFORMATION 

1515 

1516 

1517 5.1 ADDRESS AND VECTOR ASSIGNMENTS 

1518 

1519 

1520 THE DH11 USES FLOATING ADDRESSES AND IS LOCATED AFTER DJil'S IN THE FLOATING ADD 

1521 BECAUSE THE DH11 HAS EIGHT REGISTERS, IT MUST BE ASSIGNED AN ADDRESS THAT IS A M 

1522 SYSTEM SHOULD HAVE CONSECUTIVE ADDRESSES. 
1523 

1524 EXAMPLE #1: A SYSTEM WITH NO DJ1VS BUT TWO DH11 ' S. 
1525 

1526 760 010 CANNOT USE FOR DH11 * S BECAUSE NOT MULTIPLE OF 20. 

1527 760 020 FIRST DH11 

1528 760 040 SECOND DH11 

1529 760 060 DH1 1 GAP (INDICATES THAT THERE ARE NO MORE DH1 1 ' S) . 
1530 

1531 EXAMPLE #2: A SYSTEM WITH ONE DJ11. TWO DH1TS: 
1532 

1533 760 010 FIRST DJ11 

1534 760 020 DJ11 GAP (INDICATES THAT THERE ARE NO MORE DJ1TS). 

1535 760 030 CANNOT USE FOR DHH*S BECAUSE NOT MULTIPLE OF 20. 

1536 760 040 FIRST DH11 

1537 760 060 SECOND DH11 

1538 760 100 DH11 GAP (INDICATES THAT THERE ARE NO MORE Dhll'S). 
1539 

1540 THE DH11 VECTORS (2) FOLLOW THOSE OF THE DJl 1 IN THE FLOATING VECTOR SPACE THAT 

1541 AT 300 ARE USED IN THE FOLLOWING ORDER: DC11; KL11/DL11-A, B; DP11; DM11 -A; DNl 1 

1542 PA611 PUNCHES; DT11; DX11; DL11-C, D. E; DH11. 
1543 

1544 THE RECEIVER VECTOR IS THE LOWER NUMBERED VECTOR. THE PRIORITY OF THE RECEIVER A 

1545 SELECTABLE BY MEANS OF TWO STANDARD PDP11 PRIORITY JUMPER PLUGS. BR lEVEl 5 IS S 
1546 

1547 5.2 REGISTER DEFINITION 

1548 

1549 

1550 THE FOLLOWING SECTION DESCRIBES THE BIT ASSIGNMENTS WITHIN EACH REGISTER: BITS P 

1551 AS ZERO. ATTEMPTING TO WRITE INTO UNUSED OR READ ONLY BITS HAS NO FFFETT ON THOS 

1552 GENERA r ED BY THE PROCESSOR (E.G. UPON EXECUTION OF A RESET INSTRUCTIONS transMI 
1553 
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1554 5.2.1 THE SYSTEM CONTROL REGISTER - ADDRESS XOO 

1555 

1556 

1557 THE SYSTEM CONTROL REGISTER IS A BYTE -ADDRESSABLE REGISTFK. Jul HI' ASSIGNMfNT I 
1558 

1559 BITS DESCRIPTION 

1560 

1561 

1562 00-03 LINE SELECTION 
1563 

1564 EACH Of THE 16 LINES SERVED BY THE DH1 1 HAS ITS OWN STORAGE FOR LINE PAR 

1565 BYTE COUNT. THESE STORAGE LOCATIONS ARE LOADED BY THE PROGRAM VIA THE LI 

1566 REGISTER, AND BYTE COUNT REGISTER, BUT THE HARDWARE MUST FIRST B£ TOLD W 

1567 CURRENT ADDRESS, OR BYTE COUNT CHANGED. THIS ROUTING IS ACOMPLJSHEC B v 

1568 THE BINARY ADDRESS (0000-1111) OF THE DESIRED LINE. THESE BITS ARE HEAD/ 
1569 

1570 04, 05 MEMORY EXTENSION 
1571 

1572 THE INFORMATION STORED IN THESE BITS BECOMES BITS 16 AND 17 RESPECTIVELY 

1573 PROGRAM INTO THE CURRENT ADDRESS REGISTER. THESE BITS ARE READ/WRITE BUT 

1574 OF BITS 4 AND 5 OF THE SYSTEM CONTROL REGISTER, NOT THE STATUS OF ADDRES 

1575 SEE THE SILO STATUS REGISTER FOR FURTHER INFORMATION. THIS ARRANGEMENT P 

1576 SAVE THE CONTENTS OF THE SYSTEM CONTROL REGISTER ACCURATELY. 
1577 

1578 06 RECEIVER INTERRUPT ENABLE 

1579 

1580 THIS 8JT, WHEN SET, ENABLES RECEIVER INTERRUPTS (BIT 7) 

1581 

1582 07 RECEIVER INTERRUPT 

1583 

1584 THIS BIT. WHEN SET, INDICATES THAT THE NUMBER OF CHARACTERS STORED l\ TH 

1585 SPECIFIED BY THE LOW BYTE OF THE SILC STATUS REGISTER. THIS BIT IS RF» r D 

1586 WHERE IT IS READ/WRJ TE. SETTING OF THIS BIT WILL GENERATE AN INTERRUPT * 

1587 IS ALSO SET. 
1588 

1589 08 CLEAR NON-EXISTENT MEMORY INTERRUPT 

1590 

1591 THIS BIT. WHEN SET. CLEARS THE NON-EXISTENT MEMORY INTERRUPT FiIP-FlOP t 

1592 IS READ/WRITE. 
1593 

1594 09 MAINTENANCE 
1595 

1596 THIS BIT. WHEN SET. PLACES THE DH11 IN MAINTENANCE MODE. 

1597 

1598 10 NON-EXISTENT MEMORY 

1599 

1600 THIS BIT IS SET WHENEVER THE NPR HARDWARE PLACES THE ADDRESSES Of A MEMO 

1601 NO SLAVE SYNC IS RECEIVED IN 20 US. THIS INDICATES THAT THE ADDRESSED LO 

1602 THIS BIT CAUSES AN INTERRUPT REQUEST IF SET WHILE TRANSMITTER AND NON-EX 

1603 THIS BIT IS READ ONLY. EXCEPT IN MAINTENANCE MODE. WHERE IT IS READ/WRIT 
1604 

1605 11 MASTER CLEAR 

1606 

1607 t h js BIT, WHEN SET. GENERATES ' 'INI TIAL IZE" WI THIN THE DH11. CLEARING THE 

1608 EXACT BITS CLEARED ARE DISCUSSED IN THE SECTION ON INITIALIZATION. VE AD 
1609 
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1610 12 STORAGE INTERRUPT ENABLE 

THIS BIT. WHEN SET, PERMITS THE SETTING OF BIT H TO GENERATE AN INTERRU 
1 3 TRANSMITTER AND NON-EX-MEM INTERRUPT ENABLE 

THIS BIT, WHEN SET, PERMITS THE SEATING OF BIT 10 OR 15 TO GENERAL AN I 
1618 ^ STORAGE INTERRUPT 

J A An THIS BIT IS SET WHEN THE RECEIVER SCANNER FINDS A RECEIVER HOLDING BUfFF 

l£pi STORE THAT CHARACTER IN THE SILO, AND CANNOT DO SO BECAUSE OF A LACK OF 

162? AN IN TC RRUPT REQUEST IF BIT 1? IS SET. THIS BIT IS READ ONLY. EXCEPT IN 

1623 IT IS READ/WRITE. 

1625 15 TRANSMITTER INTERRUPT 

]ily THIS BIT IS SET WHEN THE DH11 CONCLUDES AN NPR CYCLE THAT INCREMENTED A 

ilSfi CHARACTER IN A MESSAGE BUFFER WAS LOADED INTO A UART TRANSMITTER HOLDING 

16 29 REQUEST IF BIT 13 IS SET. THIS BIT IS READ/WRITE. (IT IS SET DURING AN 

1630 
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1631 5.2.2 NEXT RECEIVED CHARACTER REGISTER ADDRESS X02 

1632 

1633 

1634 BITS DESCRIPTION 

1635 

1636 

1637 00-07 \EXT RECEIVED CHARACTER 

1o38 

1639 THESE BITS CONTAIN THE NEXT RECEIVED CHARACTER, RIGHT JUSTIFIED. THE LEA 

1640 

1641 08-1" LINE NUMBER 

1642 

1643 THESE BITS INDICATE THE LINE NUMBER ON WHICH THE NEXT RECEIVED CHARACTER 

1644 LEAST SIGNIFICANT BIT. 
1645 

1646 12 PARITY ERROR 

1647 

1648 THIS BIT IS SET IF THE PARITY OF THE RECEIVED CHARACTER DOES NOT AGREE u 

1649 

1650 13 FRAMING ERROR 

1651 

1652 THIS BIT IS SET IF THE RECEIVER SAMPLES A LIN£ FOR THE FIRST S T 0P BIT, A 

1653 (1061 CAL 0). THIS CONDITION USUALLY INDICATES THE RECEPTION OF A BREAK. 
1654 

1655 H DATA OVERRUN 

1656 

1657 THIS BIT IS SET WHEN THE RECEIVED CHARACTER WAS PRECEDED BY A CHARACTER 

1658 RECEIVER SCANNER TO SERVICE THE UART RECEIVER HOLDING BUFFER. REFER TO T 

1659 FURTHER DETAILS ON DOUBLE-BUFFERED RECEPTION. 
1660 

1661 15 VALID DATA PRESENT 

1662 

1663 THIS BIT INDICATES THAT THE DATA PRESENTED IN BITS K-00 IS VALID. IT PE 

1664 CHARACTERS FROM THE SILO UNTIL IT IS EMPTY. THIS IS DONE BY READING THIS 

1665 ii OBTAINED FOR WHICH BIT 15 IS A ZERO. THE ENTIRE NEXT RECEIVED CHARACT 
•666 ONLY ON A WORD BASIS. 

1667 



01 


00 




0 


0 


5 81 T 


0 


1 


6 BIT 


1 


0 


7 BIT 


1 


1 


8 BIT 
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1668 5.2.3 LINE PARAMETER REGISTER ADDRESS X04 

1669 

167? THIS REGISTER SHOULD BE LOADED ONLY AFTER THE lINE SELECTION BITS OF THE SYSTEM 

1672 LINE TO WHICH THESE PARAMETERS APPLY. THIS REGISTER IS WRITE ONLY. 

167A BITS DESCRIPTION 
1675 

^677 00-01 CHARACTER LENGTH 

1 678 

1679 THESE BITS SHOULD BE SET AS SHOWN 70 RECEIVE AND TRANSMIT CHARACTERS Of 

1680 

1681 E 
1682 
1683 
1684 
1685 
1686 
1687 
1688 

1689 02 TWO STOP BITS 

1690 

1691 THIS BIT. WHEN SET. CONDITIONS A LINE TRANSMITTING WITH 6, 7. OR 8-BIT C 

1692 MARKS. IF THE LINE IS TRANSMITTING 5 -BIT CODE, ASSERTION OF THIS BIT CAU 

1693 1.5 STOP MARKS. IF THIS BIT IS NOT ASSERTED. 1 STOP MARK IS SENT. 
1694 

1695 03 NOT USED 

1696 

1697 04 PARITY ENABLED 

1698 

1699 IF THIS BIT IS SET. CHARACTERS TRANSMITTED ON THIS LINE WILL HAVE AN APP 

1700 RECEIVED ON THIS LINE WILL HAVE THEIR PARITY CHECKED. 
1701 

1702 05 ODD PARITY 

1703 

1704 IF THIS BIT AND BIT 4 ARE SET. CHARACTERS OF ODD PARITY WILL BE GENERATE 

1705 WILL BE EXPECTED TO HAVE ODD PARITY. IF THIS BIT IS NOT SET. BUT BIT <, I 

1706 GENERATED ON THIS LINE AND INCOMING CHARACTERS WILL BE EXPECTED TO HAVE 

1707 OF THIS BIT IS IMMATERIAL . 
1708 

1709 06-09 RECEIVER SPEED 

171? THE STATE OF THESE BITS DETERMINES THE OPERATING SPEED FOR THIS LINE'S R 

1712 BELOW IS APPLICABLE. 

1713 

17H 10-13 TRANSMITTER SPEED 

1716 THE STATE OF THESE BITS DETERMINES THE OPERATING SPEED FOR THIS LINE'S t 

1717 TABLE ON THE NEXT PAGE IS APPLICABLE. 
1718 
1719 
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1720 

1721 

1722 

1723 

1724 

1725 

1726 

1727 

1728 

1729 

1730 

1731 

1732 

1733 

1734 

1735 

1736 

1737 

1738 

1739 

1740 

1741 

1742 

1743 

1744 

1745 

1746 

1747 

1748 

1749 

1750 

1751 

1752 

1753 

1754 

1755 

1756 

1757 
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SPEED TABLE F OR RECEIVER AND TRANSMITTER SPEEDS: 

BIT 

TRANSMITTER 
RECEIVER 



13 


12 


11 


10 




9 
— — 


8 
— — 


7 
— — 


6 
— - 




0 


0 


0 


0 


ZERO BAUD 


0 


0 


0 


1 


50 BAUDS 


0 


0 


1 


0 


75 BAUDS 


0 


0 


1 


1 


110 BAUDS 


0 


1 


0 


0 


134.5 BAUDS 


0 


1 


0 


1 


150 BAUDS 


0 


1 


1 


0 


200 BAUDS 


o ■ 


1 


1 


1 


300 BAUDS 




0 


0 


0 


600 BAUDS 




0 


0 


1 


1200 BAUDS 




0 


1 


0 


1800 BAUDS 




0 


1 


1 


2400 BAUDS 




1 


0 


0 


4800 BAUDS 




1 


0 


1 


9600 BAUDS 




1 


1 


0 


EXTERNAL INPUT A 




1 


1 


1 


EXTERNAL INPUT B 



14 HALF DUPLEX/FULL DUPLEX 

IF THIS BIT IS SET, THIS LINE WILL OPERATE IN HALF -DUPLEX MODE. IF NOT S 
IN FULL-DUPLEX MODE. 

IN THIS APPLICATION HALF -DUPLEX MEANS THAT THE DH11 RECEIVER IS BLINDED 

15 AUTO-ECHO ENABLE 

WHEN THIS BIT IS SET, CHARACTERS Rt.ElVED ON THIS LINE WILL BE HARDWARE 
FURTHER DETAILS. 
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1758 5.2.* CURRENT ADDRESS REGISTER ADDRESS X06 

1 759 

1760 

1761 THIS REGISTER SHOULD BE LOADED ONLY AFTER THE SYSTEM CONTROL REGISTER (SCR) HAS 

1762 DESIRED LINE NJMBER. WHEN r H !S REGISTER IS LOADED, ADDRESS BITS 00-15 ARE TRANS F 

1763 MEMORIES IN THE DF11 FROM BITS 00-15 OF THIS REGISTER. ADDRESS BITS 16-17 ARE TR 

1764 MEMORIES IN THE DH11 FROM BITS 4-5 OF THE SYSTEM CONTROL REGISTER. 

1766 INTERRUPTS MUST BE INHIBITED OR THE SCR SAVED BETWEEN THE SETTING OF THE SCR BIT 

1767 ADDRESS REGISTER. 
1768 

1769 WHEN THIS REGISTER IS READ, IT WILL INDICATE THE CURRENT ADDRESS OF THE LINE StL 

1770 BITS 16 AND 17 WILL APPEAR IN THE SILO STATUS REGISTER. BITS 6 AND 7. 

1772 5.2.5 BYTE COUNT REGISTER ADDRESS X10 

1 773 

1774 

1775 IN THE SAME FASHION AS THE LINE PARAMETER AND CURRENT ADDRESS REGISTERS, THIS RE 

1776 FIRST SELECTING A LINE NUMBER BY MEANS OF THE LOWER-ORDER FOUR BITS OF THE SYSTE 

1777 LOADED WITH THE TWO'S COMPLEMENT OF THE NUMBER OF CHARACTERS (BYTES) TO BE TRANS 

1778 IS READ/WRITE. 
1779 

1780 INTERRUPTS MUST BE INHIBITED OR THE SCR SAVED BETWEEN THE SETTING OF THE SCR BIT 

1781 COUNT REGISTER 
1782 

1783 5.2.6 BUFFER ACTIVE REGISTER (BAR) ADDRESS X12 

1784 

1785 

1786 THIS REGISTER CONTAINS ONE BIT FOR EACH LINE. THE BITS ARE INDIVIDUALLY SET USIN 

1787 TRANSMISSION ON THE ASSOCIATED LINE. THE BIT IS CLEARED BY THE HARDWARE WHEN THE 

1788 IS LOADED INTO THE TRANSMITTER DATA HOLDING REGISTER 0* THE UART FOR THAT LINE. 

1789 THE CLEARING OF A BAR DOES INDICATE THAT A MESSAGE HAY BE SENT. IT DOES NOT INDI 

1790 FROM THE PRECEDING MESSAGE HAVE BEEN COMPLETELY SENT. SPECIFICALLY. TWO MORE CHA 

1791 BIT CLEARS. THESE ARE THE LAST TWO CHARACTERS OF THE MESSAGE. ONE OF THEM WAS JU 

1792 AND ONE WAS THAT FINAL CHARACTER THAT WAS LOADED INTO THE HOLDING REGISTER. THUS 
"793 IS A NORMAL CONSEQUENCE OF DOUBLE-BUFFERED TRANSMISSION AND IS MENTIONED HERE FO 

1794 WANT TO WRITE PROGRAMS THAT CONTROL SUCH MODEM LEADS ARE REQUEST TO SEND. REQUES 

1795 DROPPED UNTIL AT LEAST TWO CHARACTER TIMES AFTER THE BAR BIT FOR A GIVEN LINE CL 
1796 

1797 THIS TIMIN6 MAY BE EFFECTED BY SENDING TWO EXTRA (NULL) CHARACTERS IN A MESSAGE 
1798 

1799 CLEARING A BAR BIT SHOULD NOT BE USED TO ABORT TRANSMISSION ON A LINE. RATHER. T 

1800 TO ZERO. THE BUFFER ACTIVE REGISTER BITS ARE READ/WRITE. 
1801 

1802 5.2.7 BREAK CONTROL REGISTER ADDRESS X14 

1803 

1804 

1805 THIS REGISTER CONTAINS ONE BIT FOR EACH LINE. SETTING A BIT IN THIS REGISTER WIL 

1806 ON THE LINE CORRESPONDING TO THAT BIT NUMBER. CLEARING THE BIT WILL TERMINATE TH 

1807 MAY BE TIMED BY SENDING CHARACTERS DURING THE BREAK INTERVAL. SINCE THESE CHARAC 

1808 FURTHER COMMENTS CONCERNING THE TRANSMISSION OF BREAK SIGNALS MAY BC FOUND IN th 
1809 
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1810 

1811 

1812 

1813 

1814 

1815 

1816 

1817 

1818 

1819 

1820 

1821 

1822 

1823 

1824 

1825 

1826 

1827 

1828 

1829 

1830 

1831 

1832 

1833 

1834 

1835 

1836 

1837 
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5.2.8 SILO STATUS REGiSTER ADDRESS X16 

THIS REGISTER IS ACT JALLY TWO BYTE-SIZED REGISTERS. THE BIT ASSIGNMENTS ARE : 
BIT DESCRIPTION 

00-05 SILO ALARM LEVEL 

THE PROGRAM MAY LOAD AN INTEGRAL POWER OF 2 BETWEEN 0 AND 63 INTO THIS L 
WHEN THE NUMBER OF CHARACTERS STORED IN THE SILO EXCEEDS THAT NUMBER, AN 
REGISTER BIT 7) IS GENERATED, IF SYSTEM CONTROL REGISTFP BIT 6 IS SET. T 

06-07 READ EXTENDED MEMORY 

THESE BITS ARE READ ONLY AND CONTAIN THE A16 AND A17 BITS OF THE CURRENT 
SELECTION BITS OF THE SYSTEM CONTROL REGISTER ARE POINTING. 

08-13 SILO FILL LEVEL 

THESE BITS ARE AN UP-DOWN COUNTER THAT INDICATES THE ACTUAL NUMBER OF CH 
BL~ NOTED THAT THERE ARE SIX BITS. HENCE NUMBERS BETWEEN 0 AND 63 CAN BE 
ENTRIES AND THE FILL LEVEL APPEARS AS 00000. BUT ONE MAY EASILY TELL THE 
SILO (00000) AND A FULL SILO (OOOCO) BY CHECKING THE STORAGE OVERFLOW BI 
THESE BITS ARE READ ONLY. 
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1838 

1839 

1840 

1841 

1842 

1843 

1844 

1845 

1846 

1847 

1848 

1849 

1850 

1851 

1852 

1853 

1854 

1855 

1856 

1857 

1858 

1859 

1860 

1861 

1862 

1863 

1864 

1865 

1866 

1867 

1868 

1869 

1870 

1871 

1872 

1873 

1874 

1875 

1876 

1877 

1878 

1879 

1880 

1881 

1882 

1883 

1884 

1885 

1886 

1887 

1888 

1889 

1890 

1891 

1892 

1893 
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5.3 DH11 MODULE ALLOCATION CHART 
VIEW FROM WIRING SIDfc 
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1900 




1901 


NOTES: 


1902 




1903 


1. 


1904 




1905 


2. 


1906 




1907 




1908 


3. 


1909 




1910 


4. 


1911 




1 912 




1913 




1914 


5. 


1915 




1916 


6. 


1917 




1918 




1919 


7. 


1920 




1921 


8. 


1922 




1923 


9. 


T924 




1925 





FIGURE 2-4 DH11 MODULE UTILIZATION DIAGRAM 

PAGE 2 



IF END OF BUS. REPLACE M920 WITH M930. 

IF LAST UNIT IN BASIC BOX, REPLACE M920 WITH eC1U CABLE WHEN 
EXPANDING 10 PERIPHERAL BOX. 

IF FIRST UNIT IN EXPANDER BOX. REPLACE M920 WITH BC11A CABLE. 

E02 MUST BE G727 GRANT CONTINUITY IF MODEM CONTROL MODULE SET 
IS NOT INSTALLED. * DENOTES DM11-8B MODEM CONTROL OPTION. 
WITH DH11-AA OR AC. 

MODULE SLOTS PROVIDE FOR ADDITIONAL CLOCK RATES. 

FOR DIAGNOSTIC CHECKOUT OF DH11-AA, A8. OR AC. REPLACES M9?i 
WITH M974. 

THIS SLOT CONTAINS MODEM CONTROL MODULE M7807 WITH DH17-AD. 

THIS SLOT CONTAINS MODEM CONTROL MODULE H7808 WITH DH11-AD. 

THIS SLOT CONTAINS EIA CONVERTER AND PRIORI Tv MODULE M5906 
FOR DH11-AD OR AE. 
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1926 6.0 MAINTENANCE PROCEDURES 

1927 

1928 

1929 THIS SECTION OUTLINES SOME GENERAL TECHNIQUES FOR 

1950 USING CZDHND FOR MAINTENANCE AND CHECKOUT OF THE 

1931 DH11 SUBSYSTEM. SINCE THIS PROGRAM DOES NOT TEST ALL POSSIBLE 

193? DH11 FEATURES (BREAK, AUTO-ECHO, HALF DUPLEX ETC.) THE USER 

1933 MUST ALSO RUN THE DIAGNOSTIC. MD-1 1-DZDHM, PRIOR TO 

1934 USING THIS PROGRAM TO INSURE COMPLETE CHECKOUT AND VERIFI- 

1935 CATION OF THP DH11 HARDWARE. 
1936 

193? 6.1 MAINTENANC CONNECTORS 

1938 

1939 

19^0 BOTH THE DATA RELIABILITY AND PAT TFRNS/CABLE SUB- 

1941 PROGRAMS REQUIRE THAT THE USER INSTALL THE APPROPRIATE MAINTEN- 

194? ANCE JUMPERS OR MODULES BEFORE RUNNING THE PROGRAM. DEPEND- 

1943 ENT UPON THE SPECIFIC DH11 CONFIGURATION AND THE TVPE OF TEST- 

1944 ING DESIRED. CERTAIN MAINTENANCE AIDS MUST BE 

1945 INSTALLED AS OUTLINED BELOW: 
1946 

1947 A. DH11-AA. AB. OR AC CONFIGURATIONS 
1 948 

1949 1) TESTING LOGIC FOR ALL LINES WITHOUT DATA CABLES 

1950 OR LEVEL CONVERTERS 
1951 

195? A. REMOVE THE DATA CABLE FROM SLOT B7 IN EACH 

1953 DH11 TO BE TESTED. 

1954 B. INSTALL AN M974 MAINT JUMPER MODULE INTO 

1955 SLOT B7 OF EACH DH11 TO BE TESTED. 

1957 2) TESTING ALL 16. LINES INCLUDING DATA CABLES 

1958 WHICH CONNECT TO DISTRIBUTION PANEL . DOES NOT 

1959 TEST LEVEL CONVERTER CIRCUITS LOCATED IN DIS- 

1960 TRI8UTI0N PANEL. 
1961 

1%? A. INSTALL 1HE M974 MAINT JUMPER MODULE INTO SLOT B3 

1963 OF THE MULTIPLEXOR DISTRIBUTION PANEL FOR EACH 

1964 DH11 TO BE TESTED. 
1965 

1966 3) TESTING ONE OR MORE SINGLE LINES INCLUDING EIA LEVEL 

1967 CONVERTERS AND DEVICE CABLES WHICH ARE NOT TESTED 

1968 IN 1 AND 2 ABOVE. 
1969 

1970 

1971 A. INSTALL AN H315 TEST CONNECTOR AT THE END OF THE 

1972 DEVICE CABLE FOR EACH LINE TO BE TESTED. 
1973 

1974 6. DHU-AD CONFIGURATION 

1975 K 

1976 1. TESTING ALL 16. LINES WITHOUT DATA CABLES 
1977 

1978 A. DISCONNECT THE DATA CABLES (2) FROM THE TwO 

1979 CONNECTORS ON THE M5906 MODULE (SlOT A87 OF 

1980 THE DH11 BACKPLANE. 
1981 
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1982 

1983 

1984 

1985 

1986 

1987 

1988 

1989 

1990 

1991 

1992 

1993 

1994 

1995 

1996 

1997 

1998 

1999 

2000 

2001 

2002 

2003 

2004 

2005 

2006 

2007 

2008 

2009 

2010 

2011 

2012 

2013 

2014 

201 S 

2016 
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2018 

2019 

2020 

2021 

2022 
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2027 

2028 

2029 

2030 

2031 

2032 

2033 

2034 

2035 

2036 

2037 
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B. INSTALL TWO H8611 TEST CONNECTORS ON THE M5906 
IN PLACE OF THE CABLES. 

2. TESTING ONE OR MORE JINGLE LINES INCLUDING DATA CABLES 

A. DISCONNECT THE DEVICE CABLE FROM THE DH11-AD 
DISTRIBUTION PANEL FOR EACH LINE TO BE TESTD. 

B. INSTALL AN H315 TEST CONNECTOR IN ITS PLACE 
ON THE DH11-AD DISTRIBUTION PANEL. 

NOTE: TO TEST THE DEVICE CABLE AS WELL, INSTALL 
THE H315 TEST CONNECTOR AT THE END OF THE 
DEVICE CAoLE AND LEAVE THE DEVICE CABLE 
CONNECTED TO THE DISTRIBUTION PANEL. 

6.2 DATA RELIABILITY TESTING 

A. COMPLETE RELIABILITY TESTING (OVER NIGHT RUNS) 

1) SET UP THE TEST JUMPERS AS REQUIRED FOR THE PARTICULAR 
CONFIGURATION TO BE TESTED. (REFER TO PARA 6.1) 

2) LOAD CZDHND AND START IT AT LOC 000200(8). 

3) TYPE IN THE DESIRED DH11 PARAMETERS - SET THE SR-000200 
AND LET THE PROGRAM RUN. 

A COMPLETE TEST RUN FOR 16. LINES ON EACH DH11 WILL 

TAKE APPROX 4 HOURS (TWO DH11 'S WOULD TAKE 8. HOURS) ETC. 

AT THE COMPLETION OF TESTING FOR EACH DH11 THE EPROR 
STATISTICS TABLE WILL BE TYPED OUT. 

4) LET THE PROGRAM RUN AT LEAST ONE PASS (4 HRS/DH11) 
PREFERABLY OVERNIGHT. AND THEN ANALYZE ANY ERROR 
PRINTOUTS AND THE ERROR STATISTIC TABLE DATA. 

5) IF ERRORS OCCUR IT SHOULD BE SIMPLE FOR THE USER TO 
DETERMINE WHICH LINE. WHICH DH11. AND THE FAILING MODES. 
OF OPERATION TO AID IN FAULT ISOLATION. 

B. QUICK DATA RELIABILITY TESTING 

1) FOLLOW THE SAME PROCEDURE AS IN PARA 6.2(A) ABOVE EXCEPT 
SET THE SR=000000(8) BEFORE STARTING THE RUN. 

THE QUICK TESTS VERIFY AIL COMBINATIONS OF LINE 
PARAMETERS ON ALL LINES AT 9600. BAUD ONLY. ALL 
OTHER BAUD RATES ARE TESTED WITH 5 BIT CHARS. 
ONE STOP BIT, AND ODD PARITY ONLY. 

2) THE QUICK TEST TAKES APPROX . 15 SECONDS PER LINE SO 
2 DH1TS (ALL 16. LINES) COULD BE TESTED IN APPROX 
8. MINUTES. 

3) THE ERROR INFORMATION PROVIDED IS IDENTICAL TO THAT 
FOR THE COMPLETE TEST EXCEPT LESS TOTAL DATA TRANSFERS 
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2038 OCCUR. 
2039 

20^0 6.3 DATA PATTERNS TESTING 

2041 

2042 

2043 _ tT THE DIAGNOSTIC. MD-1 1-DZDHM, AND 'HE DATA RELI- 

2044 A8IL I TV TESTS USE ONLY A BINARY UP COUNT PATTERN FOR DATA 
?045 TESTING WITH A MAXIMUM BUFFER SIZE OF 256. BYTES. TO PRO- 
2046 VIDE DIFFERENT DATA PATTERNS, THE USER CAN RUN THE DATA 
20^7 PATTERNS/CABLE TESTS. THESE TESTS ALLOW HIM TO SIT AT THE 

2048 CONSOLE TERMINAL AND TEST EACH LINE INDIVIDUALLY WITH VARIOUS 

2049 PARAMETERS. DATA PATTERNS. BUFFER SIZES, ETC. 

2051 1) SET UP THE TEST JUMPERS FOR THE LINES TO BE TESTED AS 

2052 DESCRIBED IN PARA 6.1. 

2054 2) LOAD CZDHND AND START IT AT LOC 000220(8) 

2055 TO RUN THE DATA PATTERNS TESTS. 
2056 

2057 3) REFER TO PARA 2.1.2.3 FOR THE OPERATING INSTRUCTIONS. 

2059 4) ONCE A FAILING PATTERN TEST IS FOUND. THE USER CAN 

2060 RECONFIGURE THE TEST JUMPERS TO ISOLATE THE FAULT TO 

2061 EITHER THE DH11 OR A FAULTY CABLE AND/OR CONNECTOR. 

2063 6.4 ECHO TESTING 

2064 — --— — . — 
2065 

2066 THESE TESTS ALLOW THE USER TO CONNECT AN ASYNCHRONOUS 

2067 TERMINAL TO THE DH11 DISTRIBUTION PANEL AND VFRFIFY THE 

2068 PARTICULAR LINE AS IT MIGHT BE USED ON-LINE. REFER TO 

2069 PARA 2.1.2.2 FOR THE OPERATING INSTRUCTIONS FOR THE Dm 1 

2070 fCHO TEST. 

CO f ' 

2072 

2073 a 
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SEO 0048 


2074 






.MUST 


CND.MD.MC 


2075 






.LIST 


TOC.ME.SEQ.BIN 


2076 




165000 


*SWR= 165000 


?077 










2078 






.ENABLE 


ABS 


2079 






.TITLE 


C ZDHN-D 


2080 






; "COPYRIGHT (C) 1977 


2081 






.-•DIGITAL EQUIPMENT CORP. 


2082 






; *MAYNARD. MASS. 01754 


2083 






• « 




2084 






; * PROGRAM BY ED CROWLEY 


2085 






• » 




2086 






;*THIS 


PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAf 


2087 






.•PACKAGE (MAINDCC-1 1-DZQAC-C3) . JAN 19. 1977. 


2088 






• » 




2089 




000001 


STN 1 




2090 






.S8TTL 


OPERATIONAL SWITCH SETTINGS 


2091 






• 




2092 






* 


SWITCH USE 


2093 






* 




2094 






* 


15 HALT ON ERROR 


2095 






• 


14 LOOP ON TEST 


2096 








13 INHIBIT ERROR TYPEOUTS 


2097 






* 


11 INHIBIT ITERATIONS 


2098 








9 LOOP ON ERROR 


2099 






!S8TTL 


AC T 1 1 HOOKS 


2100 










2101 










210? 






.HOOKS 


REQUIRED BY AC Til 


2103 




000000 




SSVPC=. ; SAVE PC 


2104 




000046 




.-46 


2105 


000046 


120C00 




120000 ;;1)SET L0C.46 TO ADDRESS OF 120000 


2106 




000052 




.-52 


2107 


000052 


000000 




.WORD 0 ;;2)SET LOC.52 TO ZERO 


2108 




000000 




.=SSVPC ;; RESTORE PC 


2109 






.SBTTL 


APT PARAMETER BLOCK 


2110 










2111 










2112 






; SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 


2113 






* * 




21K 




000000 




.SX=. ;;SAVE CURRENT LOCATION 


2115 




000024 




.=24 ;;SET POWER FAIL TO POINT TO START OF PROGRAM 


2116 


000024 


000200 




200 ;;FOR APT START UP 


2117 




000044 




.-44 ; .'POINT TO APT INDIRECT ADDRESS PNTR. 


2118 


000044 


000000 




SAPTHDR ; -.POINT TO APT HEADER BLOCK 


2119 




000000 




.-.$X ;; RESET LOCATION COUNTER 


2120 






* » 




2121 






;SFTUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTK 


2122 






; INTERFACE SPEC. 


2123 










2124 


000000 




SAPTHD: 




2125 


000000 


000000 


$HIB T S: 


.WORD 0 ;;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 


2126 


000002 


001232 


SMBADR: 


.WORD SMA1L ; ; ADDRESS OF APT MAILBOX (BITS 0-15) 


2127 


000004 


001604 


STSTM: 


.WORD 1604 ;;RUN TIM OF LONGEST TEST 


2128 


000006 


00160^ 


SPASTM: 


.WORD 1604 ;;RUN TIME IN SECS. OF 1ST PASS ON 1 JNIT (QUICK VERIFY) 


212? 


000010 


001604 


tUNFM: 


.WORD 1604 ; ;ADDI TIONAL RUN TIME (SFCS) OF A PASS FQR EACH ADDITIONAL UNIT 
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ww 1 C 






^1 31 








21 52 








?1 5S 




000000 




2134 
















21 56 








2137 




000174 




21 58 


0001/4 


000000 




2139 


000176 


000000 




2140 








2141 
2142 


000200 


000157 


016160 








2143 


000204 


000157 


001576 


2144 


000210 


000137 


016172 


2145 


000214 


000137 


004672 


2146 


000220 


000137 


006072 



51 
APT 



PAGE 50 
PARAMETER 



K 4 



BLOCK 



SF0 0049 



.WORD SETEND-SMAIL/2 
.S8TTL TRAP CATCHER 



; ; LENGTH MAU80X-E TA8l t (WORDS) 



. 0 

•ALL UNUSED LOCATIONS FROM 4 - 776 CONIAIN A ' '. *2 ,HAl V ' 
•SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
.••LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
.-174 

DISPREG: .WORD 0 .-.-SOFTWARE DISPLAY REGISTER 

SWREG: .WORD 0 ./SOFTWARE SWITCH REGISTER 

.S8TTL STARTING ADDRESS (ES) 

JMP aWlNPARX ;.JUMP TO STARTING ADDRESS Of PROGRAM 



JMP 

JK- 
IMP 
MP 



a*8EGIN 
WTINPARC 
a#FCH0 
a*EXPAT 



BEGIN EXECUTION WITH DEFAULT PARAMFTERS 
INPUT PARAMETERS - DEVICE SELECTION ONI Y 
GO START LINE ECHO TESTS 
GO START DATA PA T TERNS TESTS 
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BASIC DEFINITIONS 



L 4 



2147 

2148 

2149 

?150 

2151 

2152 

2153 

21 54 

2155 

2156 

2157 

2158 

2159 

2160 

2161 

2162 

2163 

2164 

2165 

2166 

2167 

2168 

2169 

2170 

2171 

2172 

2173 

2174 

2175 

2176 

2177 

2178 

2179 

2180 

2181 

2182 

2183 

2184 

2185 

2186 

2187 

2188 

2189 

2190 

2191 

2192 

2193 

2194 

2195 

2196 

2197 

2198 

2199 

2200 

2201 

2202 



001100 



000011 
000012 
000015 
000200 
177776 

1 7777(* 
177772 
177570 
177570 



000000 
000001 
000002 
000003 
000004 
000005 
000006 
000007 
000006 
000007 



000000 
000040 
000100 
000140 
000200 
000240 
000300 
000340 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 



SEO 0050 



.S8TTL BASIC DEFINITIONS 

THE STACK POINTER *** 1100 *** 



.••INITIAL ADDRESS OF 
STAfK= 1100 
.EQUIV EMT. ERROR .-.BASIC 
.EQUIV IOT. SCOPE ;;BASIC 



DEFINITION OF 
DEFINITION OF 



ERROR CALL 
SCOPE CALL 



•MISCELLANEOUS 



HT = 
LF~ 
CR= 
CRLF- 
PS= 
.EQUIV 
STKLMT= 
PIRQ= 
DSWR= 
DDISP= 



11 

12 

15 

200 

177776 

PS-PSU 

1 7777U 

177772 

177570 

177570 



DEFINITIONS 

; ; CODE 
; ; CODE 
;;CODF 
.CODE 



TAB 



FOR HORIZONTAL 
FOR LINE FEED 
FOR CARRIAGE RETURN 
FOR CARRIAGE RETURN-LINE 



.•PROCESSOR STATUS WORD 



FEED 



;; STACK LIMIT REGISTER 

; ; PROGRAM INTERRUPT REQUEST REGISTER 

; ; HARDWARE SWITCH REGISTER 

;; HARDWARE DISPLAY REGISTER 



•GENERAL PURPOSE REGISTER DEFINITIONS 



R0= 

R1 

R2- 

R3 

R4 

R5= 

R6 

R7 

SP" 

PC~ 



ZO 
XI 
12 
XI 
X4 
15 
X6 
X7 
X6 
X7 



;; GENERAL 
;; GENERAL 
;; GENERAL 
.-.GENERAL 
.-.GENERAL 
; ; GENERAL 
;; GENERAL 
; ; GENERAL 
;; STACK POINTER 
; ; PROGRAM COUNTER 



REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 



•PRIORITY LEVEL 



PRO- 

PR1 = 

PR2= 

PR3- 

PR4= 

PR5- 

PR6 

PR7- 



0 
40 
100 
140 
200 
240 
300 
340 



DEFINITIONS 

;;PRJ0RITY LEVEL 0 
; .-PRIORITY LEVEL 1 
; .PRIORITY LEVEL 2 
.'.■PRIORITY LEVEL 3 
;; PRIORITY LEVEL 4 
.-.PRIORITY LEVEL 5 
; .-PRIORITY LEVEL 6 
.-.PRIORITY LEVEL 7 



.-•"SWITCH REGISTER" SWITCH DEFINITIONS 

SW15- 100000 

SW14- 40000 

SW1 3= 20000 

SW12= 10000 

SW11= 4000 

SW10- 2000 

SW09= 1000 

SW08= 400 

SW07- 200 

SW06= 100 

SW05- 40 

SW04= 20 

SW03= 10 

SW02- 4 
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BASIC DEFINITIONS 



M 4 



SEO 0051 



2203 


000002 


2204 


000001 


2205 




2206 




220/ 




2208 




2209 




2210 




221 1 




2212 




221 5 




2214 




cc: 1 ? 




c:<r 16 




331 7 

cci / 


1 00000 


331 B 


a/ aaaa 
040000 


cc\v 


A 3 AAAA 

OcOOOU 


333A 

cccv 


A 1 AAAA 
010000 


3331 

ccc 1 


Art/ AAA 

ou*»oou 


3333 

cede 


AA3AAA 

UUtrOOO 


3337 

dddi 


AA1 AAA 
00 I 000 


333Z. 
ddd<i 


AAA/ AA 

UUUmUU 


333^ 

dddi 


AAA3AA 


333A 


AAA1 A A 

000 1 00 


3337 
dddr 


AAAA/ A 


33311 
dedo 


AAAAOA 

VVVVdv 


333Q 


AAAA1 A 

UUUU I U 


££jU 


AA ">AA/ 


■3571 


AAAAA3 


CCJC 


UUUw I 


3377 




337Z 
ddV* 




337^ 




337A 
tt JO 




3377 
ddjr 




337R 

CC JO 




337Q 








33£ 1 




33/. 3 




33A7 




33AA 




33Z.S 


nnnnnz. 


32£A 


UUUU 1 u 


CCH f 


fifiAAl / 


CC*o 


fwv»mz. 

VAA/U I H 


2249 


000014 


2250 


000020 


2251 


000024 


2252 


000030 


2253 


000034 


2254 


000060 


2255 


000064 


2256 


000240 



SU01- 
SWC0= 
.EQUIV 
.ECUIV 
.E0UIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 

;*DATA 
BIT1 5= 
BIT14= 
BIT13= 
BIT12= 
BIT11- 
BIT10= 
BI T09- 
BIT08= 
BIT07- 
BI T06= 
BIT05= 
BIT04= 
BIT03= 
BIT02= 
BIT01= 
BIT00= 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 

;*BASIC 

ERRVEC= 

RESVEC= 

T8ITVEC 

TRTVEC= 

BPTVEC= 

I0TVEC= 

PWRVEC= 

EMTVEC= 

TRAPVEC 

TKVEC= 

TPVEC= 

£IRQVEC 



2 
1 

SU09.SW9 
SW08.SW8 
SW07,SW7 
SW06.SW6 
SW05.SW5 
SW04.SU4 
SW03.SW3 
SW02.SW2 
SW01.SW1 
SW00,SW0 

BIT DEFINITIONS (BIT00 TO BIT15) 
100000 
40000 
20000 
10000 
4000 
2000 
1000 
400 
200 
100 
40 
20 
10 
4 
2 
1 

BIT09.8IT9 
BIT08.8JT8 
BIT07.8IT7 
BIT06.8IT6 
BIT05,8IT5 
BF04.8iT4 
BIT03,8JT3 
BIT02.8I T2 
BJT01 .81 T1 
8IT00,8IT0 



"CPU" TRAP VECTOR 
4 

10 
=14 
14 
14 
20 
24 
30 
=34 
60 
64 
-240 



ADDRESSES 

TIME OUT AND OTHER ERRORS 
RESERVED AND ILLE6AL INSTRUCTIONS 
"T" BIT 
TRACE TRAP 

BREAKPOINT TRAP (8PT) 
INPUT/OUTPUT TRAP (I0T) **SC0PE*» 
POWER FAIL 

EMULATOR TRAP (EMT) **ERR0R** 

"TRAP" TRAP 

TTY KEYBOARD VECTOR 

TTr PRINTER VECTOR 

PROGRAM INTERRUPT REQUEST VECTOR 



C2DHN-D MACY11 30AC1052) 27-DEC-78 1 5 : 3t PAGE 53 
CZDMND.P1 1 27-DEC-78 15:28 COMMON TAGS 



2257 






.SBTTL 


COMMON 


TAGS 


2258 














2259 






* m 


2260 






;*THIS 


'ABLE CONTAINS 


2261 






;*USED 


IN THE PROGRAM 


2262 














2263 




001100 






.=1100 




2264 


001100 




SCMTAG 






2265 


001100 


000000 






.WORD 


0 


2266 


001102 


000 


STSTNM 


.BYTE 


0 


2267 


001103 


000 


SERFLG 


.BYTE 


0 


2268 


001104 


000000 


SICNT 




.WORD 


0 


2269 


001106 


000000 


SLPADR 


.WORD 


0 


2270 


001110 


000000 


SLPERR 


.WORD 


0 


2271 


001112 


000000 


SERTTL 


.WORD 


0 


2272 


001114 


000 


SITEMB 


.BYTE 


0 


2273 


001115 


001 


SERMAX 


.BYTE 


1 


2274 


001116 


000000 


SERRPC 


.WORD 


0 


2275 


001120 


000000 


SGDADR 


.WORD 


0 


2276 


001122 


000000 


S8DADR 


.WORD 


0 


2277 


001124 


000000 


SGDDAT 


.WORD 


0 


2278 


001126 


000000 


SBDDAT 


.WORD 


0 


2279 


001130 


000000 






.WORD 


0 


2280 


001132 


000000 






.WORD 


0 


2281 


001134 


000 


SAUTOB 


.BYTE 


0 


2282 


001135 


000 


SINTAG 


.BYTE 


0 


2283 


001136 


000000 






.WORD 


0 


2284 


001140 


177570 


SUR: 




.WORD 


DSWR 


2285 


001 H2 


1 77570 


DISPLAY: .WORD 


DDISP 


2286 


001144 


1 77560 


$TKS: 




177560 




2287 


001146 


177562 


$TK8: 




177562 
177564 




2288 


001150 


177564 


$TPS: 






2289 


001152 


177566 


$TP8: 




177566 




2290 


001154 


000 


$NULL 




.BYTE 


0 


2291 


001155 


002 


SFJLLS 


.BYTE 


2 


2292 


001156 


012 


SFILLC 


■ .BYTE 


12 


2293 


001157 


000 


STPFLG 


.BYTE 


0 


2294 


001160 


000000 


SREGAD 


.WORD 


0 


2295 














2296 


001162 


000000 


SREGO 




.WORD 


0 


2297 


001164 


000000 


$REG1 




.WORD 


0 


2298 


001166 


000000 


SREG2 




.WORD 


0 


2299 
2300 


001170 


000000 


$REG3 




.WORD 


0 


001172 


000000 


SREG4 




.WORD 


0 


2301 


001174 


000000 


SREG5 




.WORD 


0 


23C2 


001 1 76 


000000 


$REG6 




.WORD 


0 


2303 


001200 


000000 


SREG7 




.WORD 


0 


2304 


001202 


000000 


STMPO 




.WORD 


0 


2305 


001204 


000000 


STMP1 




.WORD 


0 


2306 


001206 


000000 


STMP2 




.WORD 


0 


2307 


001210 


000000 


$TMP3 




.WORD 


0 


2308 


001212 


000000 


STMP4 




.WORD 


0 


2309 


0012H 


000000 


STMP5 




.WORD 


0 


2310 


001216 


000000 


STMP6 




.WORD 


0 


2311 


001220 


000000 


STMP7 




.WORD 


0 


2312 


001222 


000000 


STIMES 


0 





VARIOUS COMMON STORAGE LOCATIONS 



START OF COMMON TAGS 

CONTAINS THE TEST NUMBER 

CONTAINS ERROR FLAG 

CONTAINS SUBTEST ITERATION COUNT 

CONTAINS SCOPE LOOP ADDRESS 

CONTAINS SCOPE RETURN FOR ERRORS 

CONTAINS TOTAL ERRORS DETECTED 

CONTAINS ITEM CONTROL BYTE 

CONTAINS MAX. ERRORS PER TEST 

C0N1AINS PC OF LAST ERROR INSTRUCTION 

CONTAINS ADDRESS OF 'GOOD' DATA 

CONTAINS ADDRESS OF 'BAD' DATA 

CONTAINS 'GOOD' DATA 

CONTAINS 'BAD' DATA 
RESERVED — NOT TO BE USED 

AUTOMATIC MODE INDICATOR 
INTERRUPT MODE INDICATOR 

ADDRESS OF SWITCH REGISTER 
ADDRESS OF DISPLAY REGISTER 
TTY KBD STATUS 
TTY KBD BUFFER 

TTY PRINTER STATUS REG. ADDRESS 
TTY PRINTER BUFFER REG. ADDRESS 
CONTAINS NULL CHARACTER FOR FILLS 
CONTAINS # OF FILLER CHARACTERS REQUIRED 
INSERT FILL CHARS. AFTER A "LINE FEED" 
"TERMINAL AVAILABLE" FLAG (BIT<07>=0-YES) 
CONTAINS THE ADDRESS FROM 
WHICH (SREGO) WAS OBTAINED 
CONTAINS ((SREGADKO) 
CONTAINS <(SREGAD)+2) 
CONTAINS ( ($REGAD)+4) 
CONTAINS (($REGAD) + 6) 
CONTAINS (($REGAD)+10) 
CONTAINS ((S«EGAD)+12) 
CONTAINS <($REGAD)+14) 
CONTAINS <<$REGAD>+16) 
USER DEFINED 
USER DEFINED 
USER DEFINED 
USER DEFINED 
USER DEFINED 
USER DEFINED 
USER DEFINED 
USER DEFINED 

MAX. NUMBER OF ITERATIONS 
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2313 


001 224 


a a a a a a 

000000 


— . 7 * 1 

2314 


C01226 


077 


2315 


001227 


01 b 


2316 


001230 


00001 2 


231 7 






2318 






2319 






2320 






2321 






2322 


001232 




2^23 


001232 


000000 


2 32 A 


001234 


000000 


2325 


001236 


A A A AAA 

000000 


2326 


001240 


/"v /"\ /"\ A A A 

000000 


2127 


001242 


A A A AAA 

000000 


2328 


A A ^ i / / 

001 244 


000000 


-\ 7 1 A 

2329 


A A ^ i / ./ 

001246 


AAAAA A 

000000 


2330 


A A 1 1C A 

001250 


000000 


2331 


aa * r i 

001252 




2332 


a a* i r i 

001252 


aaa. 

000 


2333 


a a 1 ir? 

001253 


aaa 

000 


2334 


AA 1 1C / 

001254 


AAA AAA 

000000 


^77C 

2335 


A A1 if/ 

001256 


a a a a a a 

000000 


2336 


A A f 1/ a 

001 260 


A A A A A A 

000000 


^77 7 

2557 






•\77ft 

2338 






TITO 

2339 






17/ a 

2 3A0 






2341 






2342 






->7/ 7 

2343 


> A ■* i/ i 

001262 


aaa 

000 


17/ / 

2344 


a a 1 i^. T 

001265 


000 


17/ |- 

2345 






17 / ^ 

2346 






17/ 7 

2347 






2348 






2349 


001264 


aaaaaa 

000000 


2350 






17C1 

2351 


001266 


AAA 

000 


17C *1 

2352 


A A 1 *»/ 7 

001267 


aaa 

000 


2353 


001270 


a a a/~j a a 

oocooo 


2354 


001272 


aaa 

000 


2355 


001273 


AAA 

000 


2356 


AA1 17/ 

001274 


AAAAAA 

000000 


2357 


aa 1 17/ 
001276 


AAA 

000 


17CQ 

2358 


a a ^ 

001277 


AAA 

000 


2359 


001500 


AAA AAA 

000000 


17/ a 

2360 


001302 


A A A A A A 

000000 


2361 


001304 


A AAA A A 

000000 


17/ 1 

2362 


001306 


AAA AAA 

000000 


2363 


001510 


A A A AAA 

000000 


2364 


AA1 71 T 

001312 


A A A A A A 

000000 


■JT/.C 
£ JOJ 


AA1 71Z. 


AAAAAA 


2366 


001316 


000000 


2367 


001320 


000000 


2368 


001322 


000000 
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COMMON TAGS 

$ESCAPE:0 

SQUES: .ASCI J /?/ 

SCRLF: .ASCII <15> 

$LF: .ASCIZ <12> 



a 5 



SE0 0053 



; .-ESCAPE ON ERROR ADDRESS 
; .-QUESTION MARK 
;; CARRIAGE RETURN 
;;l INE FEED 



*************************************************************** 



.S6TTL APT MAI L80X-E TABLE 



*************************************************************** 



.EVEN 

SMAIL : 

SMSGTY 

$FATAL 

STESTN 

$PASS: 

SDEVCT: 

SUN I T : 

SMSGAD : 

SMSGLG: 

$E TABLE 

$ENV: 

SENVM: 

SSWREG: 

SUSWR: 

SCPU0P: 



; * 
; * 
■ * 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

.BYTE 
.BYTE 
.WORD 
.WORD 
.WORD 



AMSGTY 

AFATAL 

ATESTN 

APASS 

ADEVCT 

AUNIT 

AMSGAD 

AMSGLG 

AENV 

AENVM 

ASWREG 

AUSWR 

ACPUOP 



• * 

IMAMS 1 : 


.BYTE 


AMAMS1 


SMTYP1 : 

• * 

* 

• * 
* 


.BYTE 


AMTYP1 


• * 
* 

SMADR1 : 


.WORD 


AMADR1 


- » 

SMAMS2: 


.BYTE 


AMAMS2 


SMTYP2: 


.8YTE 


AMTYP2 


SMADR2: 


.WORD 


AMADR2 


SMAMS3: 


.BYTE 


AMAMS3 


SMTYP3: 


.BYTE 


AMTYP3 


SMADR3 : 


.WORD 


AMADR3 


SMAMS4: 


.BYTE 


AMAMS4 


SMTYP4 : 


.BYTE 


AMTYP4 


SMADR4 : 


.WORD 


AMADR4 


SVECT1 : 


.WORD 


AVECT1 


SVECT2: 


.WORD 


AVECT2 


S8ASE: 


.WORD 


ABASE 


SDEVM: 


.WORD 


ADEVM 


SCDW1 : 


.WORD 


ACDWl 


SCDW2: 


.WORD 


ACDW2 


SDDW0: 


.WORD 


ADDWO 


SDDW1 : 


.WORD 


ADDW1 


$DDW2: 


.mVHU 


ADDW2 



APT MAILBOX 
MESSAGE TYPE CODE 
FATAL ERROR NUMBER 
TEST NUMBER 
PASS COUNT 
DEVICE COUNT 
I/O UNIT NUMBER 
MESSAGE ADDRESS 
MESSAGE LENGTH 
APT ENVIRONMENT TABLE 
ENVIRONMENT BYTE 
ENVIRONMENT MODE BITS 
APT SWITCH REGISTER 
USER SWITCHES 
CPU TYPE. OPTIONS 
BITS 15-11=CPU TYPE 

1 1 /04=01 . 1 1 /05=02 , 1 1 /20=03 . 1 1 /40~04 .11/45-05 
11/70=06.PDQ=07.Q=10 
BIT 1 0=REAL TIME CLOCK 
BIT 9=FL0ATING POINT PROCESSOR 
BIT 8=MEM0RY MANAGEMENT 
;;HIGH ADDRESS. M.S. BYTE 
;;MEM. TYPE.BUOH 
MEM. TYPE BYTE ~ i'HIGH BYTE) 
900 NSEC C0RE=001 
300 NSEC BIP0LAR=002 
500 NSEC M0S=003 
HIGH ADDRESS, BLK#1 

MEM. LAST ADDR . =3 BYTES. THIS WORD AND LOW OF 'TYPE" ABOVE 
HIGH ADDRESS.M.S. BYTE 
MEM. TYPE. BLK*2 
MEM. LAST ADDRESS. BLKM2 
HIGH ADDRESS. M.S. BYTE 
MEM. TYPE .8UOT3 
MEM. LAST ADDRESS. 8LK#3 
HIGH ADDRESS. M.S. BYTE 
MEM. TYPE .BLK#4 
MEM. LAST ADDRESS. 81 K#4 
INTERRUPT VECTORS .BUS PRIORITY 
INTERRUPT VECT0R#2BUS PRIORI TY#2 
BASE ADDRESS OF EQUIPMENT UNDER TEST 
DEVICE MAP 

CONTROLLER DESCRIPTION W0RD#1 
CONTROLLER DESCRIPTION WORD#2 
DEVICE DESCRIPTOR WORD#0 
DEVICE DESCRIPTOR W0RD*1 
DEVICE DESCRIPTOR W0RD#2 
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C 5 



SFO 005/. 



2369 
2370 
2371 



001 324 
001326 



000000 



SDDU J : 

SETEND: 

.MEXIT 



.WORD ADDW3 ; .-DEVICE DESCRJ°TOR WORD*'> 
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2372 
2373 
2374 
237S 
2376 
2377 
2373 
2379 
2380 
2381 
2382 
2383 
2384 
2385 

2586 001326 

2387 

2388 

2389 

2390 001 326 022434 

2391 001330 022503 

2392 001332 022560 

2393 001334 022576 
2394 

2395 
2396 

2397 001 336 022606 

2398 001340 022503 

2399 001 342 022560 

2400 001344 022576 
2401 

2402 
2403 

2404 001 346 022665 

2405 001350 022503 

2406 00135? 022560 

2407 001354 022576 
2408 

2409 
2410 

2411 001356 022745 

2412 001360 022503 

2413 001362 022560 

2414 001364 022576 
2415 

2416 
2417 

2418 001366 023022 

2419 001370 022503 

2420 00137. 022560 

2421 001374 022576 
2422 

2423 
2424 

2425 001376 023104 

2426 001400 022503 

2427 001402 022560 



V 3 
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ERROR POINTER T A8LE 

.S8TTL ERROR POINTER TABLE 

•THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN O/CUR. 
*THF INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
•LOCATION SHEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS t-ERTINENT . 
•NOTM- IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPC). 

•NOTE 2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS : 



SFG 0055 



EM 
DH 
DT 
DF 



••POINTS TO THE ERROR MESSAGE 

;;POINTS TO THE DATA HEADER 

;; POINTS TO THE DATA 

; .-POINTS TO THE DATA FORMAT 



SERRTB: 
.-ERROR TABLE 

FM1 

DH1 
DTI 
DF2 



ITEM FOR ERROR 1 



.-'NON EX MEMORY ERROR - DROPPED LINF » 
•" (PC) CURLPR DEVADR REGADR WAS 
; ' SERRPC .CURLPR. SREG1 ,SREG2,$REG3,SREG4 
.-PRINT ALL OCTAL 



S/B' 



; ERROR TABLE ITEM FOR ERROR 2 



EM2 
DH1 
DTI 
DF2 



•'TRANSMITTER FALSE INTERRUPT - DROPPED LINE* 

(PC> CURLPR DEVADR REGADR WAS S/8 
; ' *$E RRPC . f URLPR , $RE G 1 . $RE G2 , $RE G3 , $RE G4 
.-PRINT ALL OCTAL 



.-ERROR TABLE ITEM FOR ERROR 3 



EM3 
DH1 
DT1 
DF2 



.-'BUFFER ACTIVE REGISTER ERROR - DROPPED LINE » 
■" (PC) CURLPR DEVADR REGADR WAS S/B 
} * tERRPC . CURLPR . SRE61 . SRFG2 . SREG3 , SRE G4 
.-PRINT ALL OCTAL 



.-ERROR TABLE ITEM FOR ERROR 4 



EM4 
DH1 
DT1 
OF 2 



•'BYTE COUNT REGISTER ERROR - DROPPED LINE » 
■" (PC) CURLPR DEVADR REGADR WAS S/B 
'• ' SERRPC . CURLPR .*REG1 . $RE 62 . SRE63 . SREG4 
•PRINT ALL OCTAL 



.-ERROR TABLE ITEM t OR ERROR 5 



EM5 
DH1 

DT1 
DF2 



"CURRENT ADDRESS REGISTER ERROR - DROPPED LINE * 
" (PC) CURLPR DEVADR REGADR WAS S/B 
"SERRPC. CURLPR. SREG1.SREG2.SREG3.SREG4 

PRINT ALL OCTAL 



; ERROR TABLE ITEM FOR ERROR 6 



EM6 
DH1 
DT1 



"SILO OVERFLOW ERROR - DROPPED LINE * 
" (PC) CURLPR DEVADR REGADR, WAS 
"SERRPC. CURLPR. $REG1.$REG2.$REG3 JREG4 



VB" 
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ERROR POiNTER TABLE 



E 5 



SfO 0056 





aai y A/ 
UUl*»U*» 


AO"3C 7A 






2429 








TABLE 


2430 






• CCiDDO 
, CKHUK 










EM7 


i/ 7*> 


001*»0o 


1 PS 




"1/ 77 


aa 1/ irt 
00 14 I0 


0cVp05 




Un 1 




00 l<? 


OcYDoU 




DTI 


<?45:> 


00 1*» 


APPC7A 

UcVp'o 




r,F ? 

lyr c 


"i/ 7*. 
<?*»X> 








TABLE 








• er one 










EM10 




AA 1/1/1 

UU 1 *• 1 0 


nP7PP7 






AA1 A PA 

UU i '•i'U 


AP7P77 




Lyric 


•5/ y 1 


nni / pp 
00 l*»cV 


n PITA A 




r>TP 

LV 1 C 




AA - !/ PA 


r pp«;7a 




r\c P 
ur c 


c:*t*0 








TAPl F 










p/ / C 








EM11 


3/ / A 
c^O 


nm / pa 

UU I HcO 


Uc P*»U*« 




oy / 7 


AA1 / 7A 

UU ' *OU 


n^TP77 




UT1C 


p/ / B 


nm atp 
UU l*t p<: 


nPTTAA 
UcP PO't 






7/ / Q 


nni ata 


n5P«;7A 

UCcPf O 




l/r C 


PA^n 










P/ ^1 








TAA! F 


C^JC 










PA 1 ;* 


(V. 1 A 7A 
UU 1 *• PD 


npTATP 

ut J 1 * Jt 




C*» ->*♦ 


nm AAfl 
UU 1 *»«tU 


nPTA7P 
U<- Ph » c 






oy CC 


nm aap 

UU I *»*«c 






DT3 


•5/ «;a 


nm aaa 
UU I *♦*♦«♦ 


npp*i7A 




DF2 












P/ CO 










p/ «;o 










PAA.1 


nm aaa 

UU I hmo 


nnnnnn 
uuuuuu 




0 


PAA1 


nm Ain 

UU 1 'tPU 


uuuuuu 




n 

V/ 


PAAP 


nm a<;p 

UU 1 *» Dc 


UcPP 3** 






c*»OP 


nm a^a 


nPT^7A 

Uc P J r H 




DF1 


c'tO't 










PAA«v 






■ FRROR 


l rlTJL. L 


paaa 








EM14 


5/ A 7 


nm A^A 
UU I *oo 


npTAnA 

U<- POU*« 






fW11 A Art 
UU I hOU 


Uc 3D J 1 




iyn*» 


P/ AO 


nm aap 
uu 1 *»oc 


nPT7nn 

Uc jr UU 




DT5 


c*»'U 


nm aaa 
uu 1 *«o*« 


Ucc P» O 




i/r c. 


PA 71 










PA7P 






•FRRDR 


TABi f 


PA77 
c*» r P 










PA7A 


nm aaa 
uu 1 *«oo 


ucp/ 1 ** 




C*« f P 


nm A7n 

UU 1 HI\J 








PA7A 


UU 1 **f c 


n??7np 

Uc P ' UU 




DT5 


2477 


001474 


022576 




Of 2 


2473 










2479 






; ERROR 


TABLE 


2480 










2481 


001476 


023742 




EM16 


2482 


001500 


024014 




DH5 


2483 


001502 


024074 




DT6 



.-PRINT ALL OCTAL 
ITEM FOR ERROR 7 



.■"RECEIVER FALSE INTERRUPT - LINE » " 
;" (PC) CURLPR DEVAPR REGADR WAS 
;"$ERRPC,CURLPR.$REG1,$REG2,$REG3,$REG4 

.-PRINT ALL OCTAL 



S/8* 



ITEM FOR ERROR 10 



"INVALID DATA IN SILO - DROPPED LINE tt " 

(PC) CURLPR CHAR » WAS ADR SHBADR WAS 
SERRPC. CURLPR, $REG0,$REG1 ,SREG2,$REG3,$REG4 
PRINT ALL OCTAL 



S/B" 



ITEM FOR ERROR 11 



'DATA ERROR - LINE # " 

(PC) CURLPR CHAR * WASADR SHBADR WAS 
$ERRPC.CURLPR.SREG0,$REG1,$REG2,SREG3,$REG4 
PRINT ALL OCTAL 



S/8' 



ITEM FOR ERROR i2 



;"TEST TIMEOUT - DROPPED LINE * " 
;" (PC) CURLPR RT0TAL XTOTAL RDONE' 
; "SE RRPC . CURL PR . S TMPO . $ TMP 1 RDONE " 
; PR I NT ALL OCTAL 



ITEM FOR ERROR 13 



NO MESSA6E 

NO DATA HEADER 

$TMP0.STMP1.STMP2.$TMP3.$TMP4.$TMP5.$TMP6 
PRIN1 ALL DECIMAL 



ITEM FOR ERROR 14 



;'BUS ERROR TRAP TO 04" 

(PC) (PS) (SP) TRAPPC 
; SERRPC . $ TMPO . SRE G6 . WE G1 . JREG2' ' 
.-PRINT ALL OCTAL 



TRAPPS" 



ITEM FOR ERROR 15 



;'fcSVD INSTR TRAP TO 10" 

(PC) (PS) (SP) TRAPPC 
; SERRPC . $ TMPO . SRE G6 . $RE 61 . $RE 62' * 
.PRINT ALL OCTAL 



TRAPPS* 



ITEM FOR ERROR 16 



.•"SINGLE LINE ECHO TEST - INTR WAIT TIMEOUT" 

;" (PC) DEVADR LINE (SCR) CURLPR EXF L AG' 

; SERRPC ,SREG1 .LINE ,S TMPO .CURL PR. EXFLAG" 
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2484 

2485 

2486 

2487 

2488 

2489 

2490 

2491 

2492 

2493 

2494 

2495 

2496 

2497 

2498 

2499 

2500 

2501 

2502 

2503 

2504 

2505 

2506 

2507 

2508 

2509 

2510 

2511 

2512 

2513 

2514 

2515 

2516 

2517 

2518 

2519 

2520 

2521 

2522 

2523 

2524 

2525 

2526 

2527 

2528 

2529 

2530 

2531 

2532 

2533 

2534 

2535 

2536 

2537 

2538 

2539 



001504 022576 



001506 024112 

001510 024154 

001512 024224 

001514 022576 



001516 024240 

001520 024154 

001522 024224 

001524 022576 



001526 024302 

001530 024154 

001532 024224 

001534 022576 



001536 024346 

001540 024154 

001542 024224 

001544 022576 



001 546 024404 

001550 024154 

001552 024224 

001554 022576 



C01556 024442 

001560 024154 

001 562 024224 

001564 022576 



001566 024501 

001570 024534 

001572 024614 

001 574 022576 



001576 005000 

001600 005067 020 1C2 
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ERROR POINTER TABLE 

D F 2 

.•ERROR TABLE ITEM FOR 

EM17 
DH6 
DT7 
DF2 



F 5 

; PR INT ALL OCTAL 
ERROR 17 



"ALTERNATING 1/0 PATTERN TEST DONE" 
" (PC) DEVADR LINE CURLPR ICOUNT* 
$E RRPC , DHADR . L I NF , C URL PR . SRE GO 
PRINT ALL OCTAL 



Sf 3 0057 



.-ERROR TABLE ITEM FOR ERROR 20 



EM20 
DH6 
DT7 
DF2 



'BINARY UP COUNT PATTERN TEST DONE" 
" (PC) DEVADR LINE CURLPR I COUNT' ' 
$E RRP C , DHADR , L I NF , C UR L PR , SR E GO 
PRINT ALL OCTAL 



; ERROR TABl E ITEM FOR ERROR 21 



EM21 
DH6 
DT7 
DF2 



'BINARY DOUN COUNT PATTERN TEST DONE" 
" (PC) DEVADR LINE CURLPR ICOUNT' 
$ERRPC , DHADR , L I NE , CURLPR . SRE GO 
PRINT ALL OCTAL 



.-ERROR TABLE ITEM FOR ERROR 22 



EM22 
DH6 
077 
DF2 



•RANDOM DATA PATTERN TEST DONE" 
" (PC) DEVADR LINE CURLPR 
$E RRPC, DHADR .LINE. CURLPR . SREGO 
PRINT ALL OCTAL 



ICOUNT' 



; ERROR TABLE ITEM FOR ERROR 23 



EM23 
DH6 
DT7 
DF2 



SINGLE CHAR PATTERN TEST DONE" 
" (PC) DEVADR LINE CURLPR 
SE RRPC. DHADR, LINE. CURL PR. SRE GO 
PRINT ALL OCTAL 



ICOUNT* 



; ERROR TABLE ITEM FOR ERROR 24 



EM24 
DH6 
DT7 
DF2 



"TYPED BUFFER PATTERN TEST DONE" 

" (PC) DEVADR LINE CURLPR ICOUNT' 

SERRPC , DHADR , L I NE . CURLPR . SRE GO 

PRINT ALL OCTAL 



; ERROR TABLE ITEM FOR ERROR 25 



BEGIN: 



EM25 
DH7 
DT10 
DF2 



CLR 
CLR 



"DATA PATTERNS TEST TIMEOUT" 
" (PC) DEVADR LINE CURLPR ICOUNT 
$E RRPC , DHADR . L I NE , CURLPR . SRE GO . SRE G 1 
PRINT ALL OCTAL 



PATOE" 



RO 

VCFLG 



;INJT RO TO INDICATE DEFAULT PARAME-t*S 
;INIT VECTOR ADDR SET UP HAG 



CZDHN-D MACY11 30AC1052) 27-DEC-78 
CZDHND.P1 1 27-DEC-78 15:28 



15:31 PAGE 59 

ERROR POINTER TABLE 



G 5 



iEQ 0058 



2540 

2541 

2542 

2543 

2544 

2545 

2546 

2547 

2548 

2549 

2550 

2551 

2552 

2553 

2554 

2555 

2556 

2557 

2558 

2559 

2560 

2561 

2562 

2563 

2564 

2565 

2566 

2567 

2568 

2569 

2570 

2571 

2572 

2573 

2574 

2575 

2576 

2577 

2578 

2579 

2580 

2581 

2582 

2583 

2584 

2585 

2586 

2587 

2588 

2589 

2590 

2591 

2592 

2593 

2594 

2595 



001 6U4 
001610 
001614 



001620 
001624 
001626 
001632 
001634 

001640 
001646 
001654 
001662 
001670 
001676 
001704 
001712 
001720 
001724 
001730 
001736 
001 744 



001752 
001756 
001764 
001772 
002000 
002006 

002010 
002012 
002016 
002020 
002026 
002034 

002040 
002044 
002052 
002054 
002062 

002062 
002066 
002070 
002076 
002100 
002106 
002110 
002112 
002114 
002^22 



005067 
005067 
005067 



012706 
005026 
022706 
001374 
012706 

012737 
012737 
012737 
012737 
012737 
012737 
012737 
012737 
005067 
005067 
112767 
012767 
012767 



013746 
012737 
012767 
012767 
022777 
001012 

000403 
012716 
000002 
012767 
012767 
012637 

005067 
132767 
001403 
012767 



005737 
001012 
126727 
001406 
026727 
001005 
104406 
000403 
112767 



020530 
020536 
020510 



001100 

001140 

001100 

011076 
000340 
011342 
000340 
014312 
000340 
014376 
000340 
177276 
177274 
000001 
001 736 
001 744 



000C04 
002012 
177570 
1 77570 
177777 



002020 

0001 76 
0001 74 
000004 

1 771 74 
000200 

001254 



000042 
177156 
1 77034 



000020 
000022 
000030 
000032 
000034 
000036 
000024 
000026 



177157 
177142 
1 771 36 



00G004 
177146 
177142 
177132 



17'112 
177106 



1 77201 
177056 

000001 
0001 76 



CLR DPFLG 

CLR RETFLG 
BEGINA: CLR TITFLG 
. S8TTL INITIALIZE THE COMMON TAGS 
;; CLEAR THE COMMON TAGS (SCMTAG) AREA 



CLEAR DATA PATTERNS TEST FLAG 
CLEAR ECHO TEST RETURN FLAG 
INI T TITLE MESSAGE FLAG 



MOV 
CLR 
CMP 
BNE 
MOV 

.-.•INITIALIZE A 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CLR 
M0V8 
MOV 
MOV 



;;FIRST LOCATION TO BE CLEARED 
;; CLEAR MEMORY LOCATION 

;;LOOP BACK IF NO 

; ; SETUP THE STACK POINTER 



#SCMTAG,R6 

(R6>* 

*SWR.R6 ;;DONE: 
.-6 

*STACK,SP 
FEW VECTORS 

#$SCOPE,S#IOTVEC ;;IOT VECTOR FOR SCOPE ROUTINE 
#340.a#IOTVEC+2 ; .-LEVEL 7 

#$ERR0R,9#EMTVEC ; ; EMT VECTOR FOR ERROR ROUTINE 
#340,a#EMTVEC+2 ;; LEVEL 7 

#$TRAP,3#TRAPVEC ;;TRAP VECTOR FOR TRAP CALLS 
#340.a*TRAPVEC+2;LEVEL 7 
*$PWRDN,a*PWRVEC ..'POWER FAILURE VECTOR 
*340,a*PWRVEC+2 ;. -LEVEL 7 

$TIMES ;; INITIALIZE NUMBER OF ITERATIONS 

SESCAPE ;;CLEAR THE ESCAPE ON ERROR ADDRESS 

#1.$ERMAX ; .-ALLOW ONE ERROR PER TEST 

#..$LPADR .-.-INITIALIZE THE LOOP ADDRESS FOR SCOPE 

#..$LPERR ;;SETUP THE ERROR LOOP ADDRESS 



.-.SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
; .-EQUAL TO A "-1 



64$ 
65$ 
66$ 



67$: 
. S8TTL 



TO A 
MOV 
MOV 
MOV 
MOV 
CMP 
BNE 

BR 

MOV 

RTI 

MOV 

MOV 

MOV 

CLR 
BITS 
BEO 
MOV 



SETUP FOR A SOFTWARE SWITCH REGISTER. 
a*ERRVEC,-(SP) ;;SAVE ERROR VECTOR 

;;SET UP ERROR VECTOR 
; .-SETUP FOR A HARDWARE SWICH REGISTER 
;;AND A HARDWARE DISPLAY REGISTER 
; ; TRY TO REFERENCE HARDWARE SWR 
; ; BRANCH IF NC TIMEOUT TRAP OCCURRED 
;;AND THE HARDWARE SWR IS NOT -1 
; .-BRANCH IF NO TIMEOUT 
;;SET UP FOR TRAP RETURN 

;; POINT TO SOFTWARE SWR 



#64$,S*ERRVEC 
0DSWR.SWR 
*DDISP. DISPLAY 
#-1,aSWR 
66$ 

65$ 

#65$. (SP) 



SURE G. SWR 
#DISPREG. DISPLAY 
(SP)+.a#ERRVEC ; ; RESTORE ERROR VECTOR 



$PASS 

#APTSIZE.$ENVM 
67$ 

#$SWREG.SWR 



GET VALUE FOR SOFTWARE 



000001 177012 



68$: 
69$: 



TST 
BNE 
CMP8 
BEQ 
CMP 
BNE 
GTSWR 
BR 

M0V8 



3*4? 
68$ 

$ENV.#1 
68$ 

SWR.ISWREG 
69$ 

69$ 

#1.$AUT0B 



.'CLEAR PASS COUNT 
.-TEST USER SIZE UNDER APT 
; YES. USE NON-APT SWITCH 
.-NO.USE APT SWITCH REGISTER 



SWITCH REGISTER 

.ARE WE RUNNING UNDER XXDP/ACT? 
.-BRANCH IF YES 
.-ARE WE RUNNING UNDER APT? 
.-BRANCH IF YES 

.-SOFTWARE SWITCH REG SELECTFD? 
.-BRANCH IF NO 
.-GET SOFT-SWR SETTINGS 

;;SET AUTO-MODE INDICATOR 



(ZDHN-D MAC Yl 1 30AC1052) 27-DEC-78 15:31 PAGE 60 
CZDHND.P1 1 27-DEC-78 15:28 GET VALUE FOR 



c596 


AA"^ 1 T1 

002122 


012767 


A1/ 7f / 

01675** 


1 7C C C y 

l 75654 


f T A A T 1 . 

START 1 : 


MOV 


2597 


AA^ 1 ?A 

002130 


012767 


aaat y a 

000340 


1 7CC C A 

l /5650 




MOV 


?598 


AA^ * 7/ 

002 1 36 


012767 


A 1 "> A 1 Z 

01 a016 


I /5644 




MAI / 

MOV 


2599 


a a 11 / / 

002144 


012767 


AAA 7/ A 

000540 


1 7C C/ A 

I /5640 




MAW 


2600 


a a ii n 

002152 


AAC 7 

005767 


0201 52 






T C T 

TST 


2601 


0021 56 


001012 








BNc 


2602 


AA*S 1 Z A 

002160 


1 A/ / rtl 








T rrfc 


2603 


AA0 1 y_ O 

002162 


AT/ Z. 

024652 








T I Tl C 

T I TLt 


2604 


A AH Z / 

0021 64 


AAC 1/7 

005167 


020 i AO 






r am 




002 1 70 


AT 0777 

0327// 


AAAAA1 

00000' 


1 7C 7/ } 

I r 6 f 4 d 




Q 1 T 


A/ 

2606 


AAT1 

0021 76 


AA1 AAO 

001002 








BNt 


260 r 


AAOOAA 

002200 


AA/ 7A7 
004/6/ 


A 1 07/ A 

012/40 






Jon 


2608 


AAO OA/ 

00cc04 


AAC 7C7 

UUj/6/ 


A1 7/ 7A 
Ul f 4 /& 




1 c . 


t c T 

1 J 1 


ao 
2609 


AAOOl A 

002210 


AA1 / 1 7 

001415 








DC A 


OA1 A 

colU 


AAO01 O 

\JMdd\d 


A70777 


UUU0U 1 


1 7A 7 DA 

1 /&/ cU 




D 1 T 


261 1 


AAOOOA 

Wdddv 


AA1 AA7 
001 UU J 








QKIC 

BNt 


oai o 
do\d 


AAOOOO 

vvdddd 


A1 A7AA 
01 6/ UU 


A1 77AA 
U I r /U6 






nuv 


OA 1 T 

col 5 


AAOOOA 

vOdddo 


AAA/ AO 

00U*»0c 








on 


OA1 / 

coin 


AAooTr. 
uUcYjU 


A A/ 7A7 
UU*» r 6 ' 


A1 ?ACA 

01 j6j6 




v» : 


1 C D 

J on 


OAI C 


AAOOI/ 


AAC AA7 

UUjU6/ 


ni 7/ / a 
U 1 f *»c»o 




1 AC • 

I U» : 


LLK 


co 16 


aaoo/ n 
UUcY*tU 


AAC 7A7 
UUj/6' 


/\ jAI AA 

UcU 1 U6 




1 7* • 

I j» . 


T C T 
1 O I 


OA1 7 
dOl f 


AAOO/ / 
UUCC*»*» 


AA 1 / A O 

UU1 *»Uc 








ZaC a 


OA1 fi 
CO IO 


UUcch6 


AAA1 A7 

JUU \Of 


AAO//.0 

UUchhc 






IMD 

Jrr 


cu IV 


AAOOOO 

UUccoc 


AAC 7A7 

UU5 fOf 


AonnAO 
Uc:UU6c 




1 1 « ■ 


TCT 

1 O 1 


OA On 
COCU 


nnOOCA 

UUcc JO 


AA1 / AO 

UU 1 »»Uc 








OCA 


c6c I 


at ooah 
UUccoU 


AAA1 A 7 

uuu i o f 


UUjO j\j 






IMP 

Jrr 


OAOO 

dodd 


AAO OA/ 


AAC7AA 
UUj f UU 






1 0* ■ 

I CP . 


TCT 

1 o : 


OA 07 


nn ooaa 
UUc coo 


UU I mU/ 








Ben 


J AO/ 


AA007A 
UUccVU 


AO07AA 

VddfKJV 


1 77777 
I / / / / / 








cOc J 


nn007/ 

UUcc/*» 


AA1 AAO 

UU I UUc: 










OA OA 

coco 


AA007A 

Wddro 


nnm A7 
UUU 1 6 / 


U I *» uu*» 






IMD 


OA07 
COC/ 


AAO^AO 
WC JVC 


AAA1 A 7 

UUU 16' 


ni 771 n 

U I J' I u 




oc - 

c » . 


IMD 


OA OS 

coco 














OA OQ 


AA07AA 

UUc _>U6 


A1 07A7 
U I df Of 


noi An/. 

Uc 1 6U*» 


nonnnA 

U<UUU6 


C T ADTO • 
J I An I c . 


MOW 

nuv 


OA7n 

COJU 


AA071 A 
UUc J I *• 


r>1 07A7 
U I c /6f 


noi a/./ 

Uc 1 0 4 * 4 * 


noyinno 




Mnu 
nuv 


0A71 
CO J I 


nno70o 


m 07A7 
U I C/O/ 


noi 7nA 

Uc I ' U6 


m 777 'A 
U I ' / /o 




vnw 

nuv 


0A70 
dOjd 


nno77n 
UUc jjU 


f>1 07A7 
U 1 cf Of 


1 77777 
I / / / / / 


ni 7An/. 

U 1 / OU 4 * 




nuv 


0A77 


<V>077A 
UUc J JO 


fi1 07A7 
U I C / 6f 


nnnAni 

UUUUU 1 


m 71 CA 
U I / I 




mou 
nuv 


0A7/ 














XT'; 

CUJJ 


UUC JH*» 


AAC OA 7 
UUjco/ 


m 7C70 
U I fJf d 




DC C i DT ■ 


r Kir 


0A7A 
CO JO 


nno7c.n 

UUc jjU 


/JA07A7 
U6c f O/ 


UUUUUc 


ni ~?7LL 

U I / / H"! 






0/.77 
CO J' 


nn07CA 
UUc J jo 


f>A07A7 
U6c / 6 r 


nn aaa o 

UUUUUc 


ni 77z.n 

U 1 / / sU 




Ann 


OA IB 

CD JO 


AAOTA/. 

UUc jO*» 


AA07A7 
U6C' 6^ 


AAA AAO 

UUUUUc 


m 777Z. 

U I ' ' JH 




Ai\n 


0A7Q 


AA0770 
UUCJf C 


AZA7A7 
UOO/6/ 


m 71 oo 

U I / I cc 


m 71 oo 

•J I / I CC 




D I T 


COmU 


UUc'tUU 


UU I uu*» 












(V>OAno 

UUc'tUc 


AAA'ZA7 
UUO JO/ 


m 71 1 o 
u i / i i c 




DC CT 1 • 


AC 1 
MoL 


OA/. J 
CO*«C 


noo/A/, 


AA1 777 
UU 1 / J/ 










OA/. T 
COM J 


nnp/. 1 n 

UUc*t I u 


UUU' J J 








no 

On 


0AZ.Z. 


nnoz.1 o 
UUc*» I c 


m 77A7 
U I / / o/ 


U I / ' u*» 


U I /U/H 




Mnu 
nuv 


2645 


002420 


01 7767 


01 7700 


017070 




MOV 


2646 


002426 


317767 


017674 


01 7 504 




MOV 


2647 


002434 


004567 


012376 






JSR 


2648 


002440 


022142 








DHNUM 


2649 


002442 


024721 








TJTLE2 


2650 


002444 


104401 








TYPE 


2651 


002446 


024701 








TJTLE2 



H 5 



iOF TWARE SWITCH REGISTER 

;SET UP THE BUS ERROR VECTOR 
:SET UP THE RSVD INSTR VECTOR 



SE0 0059 



#8USER,ERRVEC 
#340.ERRVEC*2 
#RESERR,RESVEC 
*340.RESVEC+2 
TITFLG 
1$ 



TI1FLG 

#8JT0.3SWR 

1$ 

PC.AUT0SZ 

VCFLG 

13$ 

#8lT0.aSWR 
9$ 

ADRVEC.RO 
10$ 

PC , INPARA 

VCFLG 

RETFLG 

11$ 

ECH01 

DPFLG 

12$ 

EXPAH 

R0 

START2 
#-1.R0 
2$ 

INPAR3 
INPAft 

IDHADT8-2.ADPTR 
DHVC T8-2 , VCPTR 
*8ntVL-2,BRPTR 
#-1. DHNUM 
#1.SEL«SK 

DHNUM 

#2,ADPTR 

#2, VCPTR 

#2.8RPTR 

SELMSK.DHSEL 

RSTRTA 

SELMSK 

START2 

RESTRT 

aADPTR.DHADR 
iVCPTR.DHVCT 
S8RPTR,DHRIVL 
R5.SUNUM 



HAVE WE T/PED TITLE ONCE ? 
8R IF YES 

GO TYPE PROGRAM TITLE 

SET FLAG - TYPE TITLE OWL* ONCE PER LOAD 

DO WE WANT TO AUT0SIZE? 

BRANCH IF NOT. 

GO AUTOS I ZE. 

START AT 200 ?? 

8R IF NOT 

ARE PARAMETERS to BE INPUT MANUALLY? 
BRANCH IF YES 

OTHERWISE. GET ADDRESSES BETWEEN VEC0TRS FROM AUTOSIZER 

GO ASK FOR PARAMETERS 
RE INIT START FLAG 
RETURN TO ECHO TESTS ? 
8R IF NOT 

RETURN TO ECHO TEST START-UP 
RETURN TO DATA PATTERNS TEST ? 
8R IF NOT 

GO BACK TO DATA PATTERNS TESTS 
USE DEFAULT PARAMETERS ? 
8R IF YES 

CHANGE DH SELECT PARAM ONLY ■» 
8R IF NOT 

GO ASK FOR SELECT PARAM. 
GO ASK FOR ALL PARAMETERS 

GET POINTER TO ADDRESS TABLE 
GET POINTER TO VECTOR TABLE 
GET POINTER TO BR LEVEL TABLE 
START WITH DH #00 
SET UP DH11 BIT TEST MARKER 

GENERATE DH11 DEV NUMBER 
UPDATE TABLE POINTERS 



TEST FOR SELECTED DHll 

8R IF SELECTED FOR TEST 

SHIFT MARKER TO T EST NEXT DH11 

8R IF 16 TESTED - START OVER 

GO TEST IF THIS ONE SELECTED 

SET UP DH11 ADDRESS 

SET UP THE DH11 VECTOR ENTRY 

GET BR LEVEL VALUES 

GO SET DH NUMBER IN THE MESSAGE BUFFER 



►20 



;G0 PRINT 'TESTING DHll #XX* 



CZDHN-D MACY11 30AC1052) 27-DEC-78 15; 
CZDHND.P1 1 27-DEC-78 1 5:28 



1764 30 



31 
GET 



PAGE 61 
VALUE FOR 



2652 


002450 


012767 


aa "i / f A 


2655 








265<« 








2655 








2656 


002456 


000004 




2657 


A A^ / Z A 

002460 


A1 "\7/ 7 

012767 


A AA AA 1 

00000 l 


-w C ft 

2658 


Art**/ > y 

002466 


004 Tof 


Al i / 7/ 

014436 


2659 


002472 


A A / "7Z 7 

004 r 6 r 


A1 CA1 A 

01 5016 


2660 


0024 ^6 


AAC AA 7 

00506' 


A1 7A7A 
01 f^05U 


2661 


002502 


AAC AA 7 

00506' 


Al 7AT5 

01 rOdd 


2662 


00<r506 


A A C AA 7 

00506' 


A1 7/ 7*^ 

01 f^43^ 


2665 


0025 l<: 


0 16' Uc 


Al 7AAA 
01 AJ0U 


OAA/ 


00c 51 6 


0 \df dd 


AA7C7/ 

0U35 J 4 * 


2665 


AA") C 

002522 


1 \or dd 


Al 7/11 

01 r *\d 


2666 


00c 5 c6 


1 AC7H 

lU5fV<: 




door 


aa , d^7a 


A1 5755 
\J\dr dd 


AA7A7A 


~) A A O 


AA*5C 1/ 

00^554 


1 16'1 c 


A1 7/ Al 

U 1 r "tu 1 




UUc5*»U 


A1 A7A1 
U I Of U I 


T1 A7^A 
J I or 5U 


"DA7A 








<:6f 1 


AA*DC/ / 

UUc5*»«« 


AA/ 7A7 


A1 51 AA 

Uid loo 


ia 7") 
dor d 


aaoc^a 


AAA ' A 1 
000- <J I 




DA77 
£Of 5 


UUc 5 jc 


AAA/ 1 A 
UU*J*» I U 




5 A 7/ 

cor** 


aaocc/ 


1 557A7 
I AC (Of 


AAAAA1 


5 A 7^ 

dory 


AA5^A5 


AA1 




"3A7A 

eOrO 


AAO^AZ 

UUc 5o*» 


AAA1 A7 
UUU I Of 


AA5A1 5 


5A77 
dO< ( 


AA5^7A 


nnni A7 

UUv I O f 


AA1 Al A 

uu 1010 


5 A 711 

cor a 


aao^7/. 


AA/ CA7 


A1 557A 
U I CCjO 


5A7Q 
COr 7 


rVOAAA 


Vdd !*»*» 




tool) 


AA5AA5 


wtJ JO I 




(TOOl 


aa5aa/ 
OOcoUh 


1 A/ / A1 

llfi'iU 1 




TAB o 

cooc 


UVJcOUO 






~) AH 7 


n 

UUco I U 


A1 37A7 
U I <: f Or 


A51 «i7A 
Ut: I 550 


5A8/ 










AA0A1 A 
UUco 10 


Any CA7 


A1 A75i 


-)/L OA 


AA5A55 






5 AH 7 
COOr 


AA5A5Z. 
KJVdOd 1 * 


A1 37A7 
U I CrOr 


1 777AA 
\ f r r o\J 




AA5A75 


Al 07A7 
U 1 CrOf 


1 77777 
\ 1 r 1 r r 


"5A0Q 








OAQA 
C07U 


aa5aza 


AACAA7 


A1 AA7A 
U I OO f U 


5AQ"! 

^oy i 


UUcO*««« 


AA/ ^A7 




core 


aaoa^a 


AAA7A5 

UOUr 0<r 




5AQ7 

£17-5 


AA5A^5 


AACA/,7 


A1 A755 
U I Of cc 


5AQZ. 
dOTH 










AA5A^A 
VAfc050 


AAZ.^A7 
U'J*» jOf 


U I *f 5 I \J 




AA5AA5 


AAA77A 




5A07 








5AQfi 


An") A A/. 


AAA7A7 
wv/M 'Of 


Al I 7CA 
U I I ' JU 


'JAQQ 
C077 


AA5A7A 

LfUcOf U 


a";a7ai 


A1 AA75 
U I005£ 


">7AA 


AA5A7A 


AA/7A7 
UvS f O r 


AIA^I A 
U 1 C J 10 


P701 








2702 








27C3 


002702 


012767 


000200 


2704 


002710 


005067 


01 7420 


2705 


002714 


022767 


000003 


2706 


002722 


001435 




2707 


002724 


004767 


014156 



176534 



MOV 
■ *********** 

West i 

• *********** 

SCOPE 
MOV 



SOFTWARE SWITCH REGISTER 

#.,$LPADR - ;INIT SCOPE RETURN 
**************************************************** 

SUB-PROGRAM 1 - DATA RELIABILITY TESTS 
**************************************************** 



,E0 0060 



TST1 : 
STDH1 



JSR 

JSR 

CLR 

CLR 

CLR 

MOV 

MOV 

M0VB 

TST8 

MOV 

M0V8 

MOV 



176470 



NEWLIN: 



3$: 
2$: 



016754 



016742 
016736 



000012 



NEWLPR: 

NEWCL: 

NEWPAR: 
DHST1 : 



017422 
016660 1$: 



#1,STIMES 

PC.CLSTAT 

PC ,KY8D1 

QUICK 

DRPLIN 

LINE 

DHVCT.R2 
#RJNT1,(R2)* 
DHRLVL,(R2)> 
(R2)* 

#TINT1.(R2)+ 
DHTLVL, (R2) 
DHADR.R1 



JSR 
BR 
BR 
CMP8 
BNE 
JMP 
JMP 
JSR 
LINE 
STMSG2<-20 
TYPE 
STMSG2 
MOV 



PC.SELINE 
1$ 



2$ 

*'t . SENV 
3$ 

ENDA 
PRSTAT 
R5.SUNUM 



#LPRTA8.LPRPTR 



JSR R5.SETLPR 

BR NEULJN 

MOV #1 77760. CHRCNT 

MOV 4M.CLSEL 

CLR QUICK* 

JSR R5,SETCL 

8R NEWLPR 

CLR PAR8IT 

JSR R5.SETPAR 

BR NEWCL 

JSR PC.DHSET1 

BIS LINMSK.BAR(RI) 

JSR PC.CHPS1 



MOV *200.TIMEA 

CLR TIME 8 

CMP #3,RD0NE 

BEQ 3$ 

JSR PC.TIMEIT 



;D0 1 ITERAT'ON 

GO CLEAR THE STATISTICS TABLES 

GO SET UP FOR KEYBOARD INTRS. 

INIT THE QUICK TEST FLAG 

INN DROPPED LINE FLAGS 

INIT LINE NO. TO 00 

SET UP THE VECTORS 

GO TO RINT1 ON RtVR INTR 



;G0 TO TINT1 ON XMITTR INTR 

rSET UP DEVICE ADDRESS 

GO SELECT NEW LINE FOR TEST 

BR IF TESTED ALL SELECTED LINES 

8fi IF NOT DONE 

UNDER APT? 

NO-BRANCH 

YES- SKIP STATISTICS REPORT 
GO CHECK AND REPORT STATISTICS 
PUT LINE NO. IN MSG 

;TYPE LINE NO. BEING TESTED 
;SET UP LPR TABLE POINTER 



GO SET UP LPR CONSTANT 

8R IF DONE ALL BAUD RATES AT THIS LINE 

INIT CHAR COUNT 

INIT CHR LNGTH SELECT CODE 

JNIT QUICK TEST EXIT FLAG 
GO SET UP THE CHAR LENGTH 
8R IF DONE ALL FOUR LENGTHS 
INIT PARITY SELECT BIT CODE 

;G0 SET PARITY SELECT 
;8R IF DONE ALL COMBOS 

;G0 SET UP FOR TESTING THIS LINE 
.•ACTIVATE THE SELECTED LINE 
;G0 CLEAR PSW 



;INIT TIMER A 
; INIT TIMER B 

;80TH RCVR AND XMITTR DONE ? 
;8R IF YES 
;CALL THE TIMER 



C7DHN-D MACY11 30A(1052) 27-DEC-78 15:31 
CZDHND.P11 27-DEC-78 15:28 T1 



2708 


002730 


000771 




2709 








2710 








2711 


002732 


052777 


004000 


2712 


002740 


116700 


01 7200 


2713 


002 744 


006300 




2714 


002746 


016067 


030160 


2715 


002754 


016067 


030220 


2716 


00?76? 


004567 


012050 


2717 


002766 


C2P144 




2718 


002770 


023467 




2719 


002772 


012767 


003002 


2720 


003000 


104012 




2721 


003002 


056767 


016520 


2722 


003010 


01^706 


001 1 00 


2723 


003014 


000653 




272k 








2725 








272b 


003016 


012711 


004000 


2777 


003022 


004767 


001050 


2728 


003026 


00071 3 





5S 



J 5 

PAGE 62 

SUB-PROGRAM 1 - DATA RFL IABIL I TY TESTS 



SEQ 0061 



BR 



BIS 

M0V8 

ASL 

MOV 

MOV 

JSR 

LINE 

EM12*35 

MOV 

ERROR 

BIS 

MOV 

8R 



1$ 



08 1 T 1 1 , 3DHADR 

LINE.RO 

RO 

RTOTAL(RO),ITMPQ 
XTOTAL(R0>.$TMP1 
R5,SUNUM 



#2$.$LPERR 

12 

LINMSK.DRPLIN 

*STACK.SP 

NEWLIN 



TIMER STEPS AROUND THIS BRANCH If 
TIMEOJT OCCURS 

CLEAR OUT THE DH11 
GET LINE NO. 
FORM TABLE INDEX 
SAVE XMITTED COUNT 
SAVE THE RCVD COUNT 
PUT LINE NO. IN MESSAGE 



SET UP ERROR LOOP RETURN 

LINE FAILED TO FINISH ON TIME - HUNG 

SET DROP FLAG 

RESET STACK POINTER 

GO TRY ANOTHER LINE 



MO./ *8IT11.(R1) .-CLEAR THE WORLD OUT IN THE DHl 1 

JSR PCCKER ;G0 UPDATE THE DATA ERROR TABlES 

BR NEUPAR ;G0 TRY NEXT PARITY COMBINATION 



f/DHN-D MACY11 30AU052) 27-DEC-78 
( ZDMND.P1 1 27-DEC-78 15:28 



15:31 PAGE 63 

T1 SUB-PROGRAM 



K 5 

- DATA RELIABILITY TESTS 



SFQ 0062 



2729 








2730 








2731 








2712 


003030 

\J\J J\J J\J 


032711 


002000 


V33 


003034 


001432 




2734 








2735 


003036 


011103 




2736 


003040 


004767 


0*6370 


2737 


003044 


012711 
116704 


004000 


2738 


003050 


01 7070 


2739 


003054 


042703 


175760 


2740 


003060 


010102 




2741 


003062 


004767 


012034 


2742 


003066 


004567 


011744 


2743 


003072 


022144 




2744 


003074 


022500 




2745 


003076 


012767 


003106 


2746 


003104 


104001 




2747 


003106 


022626 




2748 


003110 


056767 


016412 


2749 


00^116 


000167 


177422 


2750 








2751 


003122 


011103 




2752 


OC3124 


100433 




2753 








2754 


003126 


004767 


016302 


2755 


003132 


012711 


004000 


2756 


003136 


012704 


100000 


2757 


003142 


156704 


016776 


2758 


003146 


042703 


077760 


2759 


003152 


010102 




2760 


003154 


004767 


01 1 742 


2761 


003160 


004567 


011652 


2762 


003164 


022144 




2763 


003166 


022662 




2764 


003170 


012767 


003200 


2765 


003176 


104002 




2766 


003200 


022626 




2767 


003202 


056767 


016320 


2768 


003210 


000167 


1 77330 


2769 








2770 


003214 


005761 


000012 


2771 


003220 


001432 




2772 








2773 


003222 


004767 


016206 


2774 


003226 


016103 


000012 


2775 


003232 


012711 


004000 


2776 


003236 


005004 




2777 


003240 


010102 




2778 


003242 


062702 


000012 


2779 


003246 


004767 


011650 


2780 


003252 


004567 


011560 


V81 


003256 


022144 




2782 


003260 


022742 




2783 


003262 


012767 


003272 


2784 


003270 


104003 





; tRANSMI T TER INTERRUPT SERVICE ROUTINE ONE 



TINT1 



1$: 



2$: 



3$: 



4$: 



BIT 
BEO 

MOV 

JSR 

MOV 

MOVB 

BIC 

MOV 

JSR 

JSR 

LINE 

EM1 *44 

MOV 

ERROR 

CMP 

BIS 

JMP 

MOV 
BMI 

JSR 

MOV 

MOV 

81 SB 

BIC 

MOV 

JSR 

JSR 

LINE 

EM2»54 

MOV 

ERROR 

CMP 

BIS 

JMP 

TST 
BEO 

JSR 

MOV 

MOV 

CLR 

MOV 

ADD 

JSR 

JSR 

LINE 

EM3*55 

MOV 

ERROR 



#8IT10.(R1) 
2$ 

(RD.R3 
PC.CHPS2 
*8IT11.<R*) 
LINE ,R4 
#1 75760. R3 
R1 .R2 
PC.SUER1 
R5.SUNUM 



#1S,$LPERR 
1 

(SP)*,(SP>* 

LINMSK.DRPLIN 

NEWLIN 

(RD.R3 
4$ 

PC.CHPS2 

#BIT11.(R1) 

#8IT15.R4 

LINE.R4 

#77760. R3 

R1.R2 

PC.SUER1 

R5.SUNUM 



#3f.$LPERR 

2 

<SP)*,(SP>* 
LINM5K.DRPI IN 
NEWLIN 

BAR(RI) 
61 

PC.CHPS2 
BAR(R1).R3 
#8IT11.(R1) 
R4 

R1,R2 
#8AR.R2 
PC.SUER1 
R5.SUNUM 



#5$.$LPERR 

3 



NON EX MEM FRROR ?? 
BR IF NOT 

SAVE THE SCR 

GO LOCK OUT INTRS 

CLEAR OUT THE DH11 

SET UP THE S/8 DATA 

CLEAR OUT SUPERFLUOUS BITS 

SET UP REGADR 

GO C FT UP ERROR INFO 

GO SET UP LINE NO. IN MSG 



SET UP THE ERROR L00 p RETURN 
NON EX MEM ERROR 
POP THE STACK 

SET THE DROPPED FLAG FOR THIS LINE 
GO TRY NEXT LINE 

GET THE SCR REG CONTENTS 
BR IF XMIT DONE SET 

GO LOCK OUT INTRS 

CLEAR THE DH11 - FATAL ERROR 

SET UP S/8 DATA 

CLEAR OUT SUPERFLUOUS BITS 

SET UP REGADR 

GO SET UP ERROR INFO 

GO SET UP LINE NO. IN MSG 



SET UP ERROR LOOP RETURN 
XMITTR FALSE INTERRUPT 
POP THE STACK 

SET THE DROPPED FLAG FOR THIS LINE 
GO TRY NEXT LINE 

DID BAR BIT CLEAR ?? 
BR IF YES 

GO LOCK OUT INTRS 
GET THE WAS DATA 
CLEAR THE I>H11 
SET UP S/B DATA 
SET UP REGADR 

GO SET UP ERROR INFO 

GO SET UP LINE NO. IN MSG 



.SAVE THE ERROR LOOP RETURN 
.•BUFFER ACTIVE REG FAILED TO CLEAR 
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2785 


003272 


022626 






51: 


CMP 


2786 


003274 


056767 


016226 


016226 




BIS 


2787 


003302 


000167 


177236 






JMP 


2788 














2789 


003306 


005761 


000010 




6$: 


rs T 


2790 


003312 


001432 








BEQ 


2791 














2792 


003*14 


004767 


016114 






JSR 


2793 


003320 


016103 


000010 






MOV 


2794 


003324 


012711 


004000 






MOV 


2795 


003330 


005004 








CLR 


2796 


003332 


010102 








MOV 


2797 


003334 


062702 


000U10 






ADD 


2798 


003340 


004767 


011556 






JSR 


2799 


003344 


004567 


011466 






JSR 


2800 


003350 


022144 








LINE 


2801 


003352 


02301 7 








EM4+52 


2802 


003354 


012767 


003364 


175526 




MOV 


2803 


003362 


104004 
022626 








ERROR 


2804 


003364 






7$: 


CMP 


2805 


003366 


056767 


016134 


06134 




BIS 


2806 


003374 


000167 


177144 






JMP 


2807 














2808 


003400 


016103 


000006 




8$: 


MOV 


2809 


003404 


01670*. 


016164 






MOV 


2810 


003410 


005404 








NEG 


2811 


003412 


062704 


032754 






ADD 


2812 


003416 


020304 








CMP 


2813 


003420 


001425 








BEQ 


2814 














2815 


003422 


004767 


016006 






JSR 


2816 


003426 


010102 








MOV 


2817 


003430 


062702 


000006 






ADD 


2818 


003434 


004767 


01146^ 






JSR 


2819 


003440 


004567 


011372 






JSR 


2820 


003444 


022 1'-4 








LINE 


2821 


003446 


023101 








EM5+57 


2822 


003450 


012767 


003460 


175432 




MOV 


2823 


003456 


104005 








ERROR 


28?4 


003460 


022626 






9$: 


CMP 


2825 


003462 


056767 


016040 


016040 




BIS 


2826 


003470 


00016/ 


1 77050 






JMP 


2827 














2828 


0034 74 








10$: 




2829 


003474 


010346 








MOV 


2830 


003476 


010446 








MOV 


2831 


003500 


016703 


016070 






MOV 


2832 


003504 


005403 








NEG 


2833 


003506 


116704 


016432 






Move 


2834 


003512 


006304 








ASl 


2835 


003514 


060364 


030220 






ADD 


2836 


003520 


012604 








MOV 


2837 


003522 


012603 








MOV 


2838 


003524 


052767 


000001 


016050 




BIS 


2839 


003532 


000002 








RTI 



3RAM 1 



L 5 

DATA RELIABILITY TESTS 



<SP)*,(SP)* 
L INMSK ,DR D L IN 
NEWLIN 

BCR(RD 
8$ 

PC.CHPS2 
BCR(R1) .R3 
*8IT11 ,(R1) 
R4 

R1,R2 
*8CR.R2 
PC.SUER1 
R5.SUNUM 



POP GOfcS THE STACK 

SET THE DROPPED FLAG FOR THIS LINE 

GO TRY NEXT LINE 

DID BYTE COUNT GO TO ZERO ?? 
BR IF YES 

GO LOCK OUT INTRS 
GET THE WAS DATA 
CLEAR THE DH1 1 
SET UP S/B DATA 
SET UP REGADR 

GO SET UP THE ERROR INFO 
GO SET UP LINE NO. IN MSG 



»7$.$LPERR 

4 

(SP)*.(SP)* 
L INMSK. DRPL IN 
NEWLiN 

CAR(R1),R3 

CHRCNT.R4 

R4 

#T8UF ,R4 

R3.R4 

^0$ 

PC.CHPS2 

R1,R2 

*CAR,R2 

PC.SUER1 

R5.SUNUM 



;SET UP ERROR LOOP RETURN 

.-BYTE COUNT REG FAILED TO CO TO 000000 

.POP GOES THE STACK 

;SET THE DROPPED FLAG ^OR THIS LINE 

;G0 TRY NEXT LINE 

;GET THE WAS DATA 
.-SET UP S/8 DATA 



; WAS CAR CORRECT ?? 
;BR IF YES 

;G0 LOCK OUT INTRS 
;SET UP REGADR 

;G0 SET UP ERROR INFO 

;G0 SET UP LINE NO. IN MSG 



#9$,$LPERR 

5 

(SP)+,<SP>+ 
L INMSK, DRPL IN 
NEWLIN 



SET UP THE ERROR RETURN 
CURRENT ADDRESS REG NOT CORRECT 
POP THE STACK 

SET THE DROPPED FLAG FOR THIS LINE 
GO TRY NEXT LINE 



R3,-(SP) 
R4.-CSP) 
CHRCNT,R3 
R3 

L INE ,R4 
R4 

R3,XT0TAL(R4) 
(SP)*.R4 
(SP)*.R3 
t8IT0,RDONE 



;;PUSH R3 ON STACK 
;;PUSH R4 ON STACK 

;CHAR COUNT IN R3 
;GET LINE NO. 
; DOUBLE IT 

.•UPDATE TOTAL XMIT COUNT 
;;POP STACK INTO R4 
;;POP STACK INTO R3 
.SET XMIT DONE FLAG 
; RE TURN TO WAIT LOOP 
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15; 



31 PAGE 65 

T1 SUB-PROGRAM 



M 5 

1 - DATA RELIABILITY TESTS 



SEO 0064 



2840 

2841 

2842 

2843 

2844 

2845 

2846 

2847 

2848 

2849 

2850 

2851 

2852 

2853 

2854 

2855 

2856 

2857 

2858 

2859 

2860 

2861 

2862 

2863 

2864 

2865 

2866 

2867 

2868 

2869 

2870 

2871 

2872 

2873 

2874 

2875 

2876 

2877 

2878 

2879 

2880 

2881 

2882 

2883 

2884 

2885 

288o 

2887 

2888 

2889 

2890 

?891 

2892 

2893 

2894 

2895 



003534 
003540 

003542 
003546 
003550 
003554 
003560 
003564 
003570 
003574 
003^76 
003600 
003606 
003610 
003612 
003620 

003624 
003626 

003630 
003634 
003636 
003642 
003646 
003652 
003656 
003660 
003664 
003670 
003672 
003674 
003702 
003704 
003706 
003714 

003720 
003726 

003730 
003734 
003740 
003746 
003752 
003756 
003762 
003764 
003766 
003774 
003776 
004000 
004006 



032711 
001431 

004767 
011103 
012711 
042703 
116704 
004767 
004567 
022144 
0231 50 
012767 
104006 
022626 
056767 
000167 

105711 
100434 

004767 
011103 
042703 
012711 
012704 
156704 
010102 
004767 
004567 
022144 
023224 
012767 
104007 
022626 
056767 
000167 

016167 
100431 

004767 
012711 
162767 
016702 
004767 
004567 
022144 
023274 
012767 
104010 
022626 
056767 
000167 



040000 



015666 

004000 
1 77760 
016360 
011332 
011242 



015614 
176624 

000002 



015500 
004000 
030474 
024516 
011140 
011054 



.•RECEIVER INTERRUPT SERVICE ROUTINE ONE 



RINT1 



003610 175302 



015710 015710 
176720 



015600 

1 77560 
004000 
000200 
016266 

011236 
011146 



003704 175206 



1$: 



2$: 



3$: 



015614 
175254 4$: 

024522 



003776 175114 



015522 
176532 



015522 



5$: 



BIT 
BEQ 

JSR 

MOV 

MOV 

BIC 

M0V8 

JSR 

JSR 

LINE 

EM6+44 

MOV 

ERROR 

CMP 

BIS 

JMP 

TSTB 
BMI 

JSR 

MOV 

BIC 

MOV 

MOV 

BISB 

MOV 

JSR 

JSR 

LINE 

EM7+51 

MOV 

ERROR 

CMP 

BIS 

JMP 

MOV 
8MI 

JSR 

MOV 

SUB 

MOV 

JSR 

JSR 

LINE 

EM10+45 

MOV 

ERROR 

CMP 

BIS 

JMP 



*8ITU,(R1) 
2$ 

PC.CHPS2 

(RD.R3 

*BlTl1.(R1) 

*1 77760. R3 

LINE.R4 

PC.SUER1 

R5.SUNUM 



*1$,$LPERR 
6 

(SP)*.<SPH 

LINMSK.DRPLIN 

NEWLIN 

(R1) 
4$ 

PC.CHPS2 

(RD.R3 

#177560.R3 

*8IT11.(R1) 

*8IT07.R4 

LINE,R4 

R1.R2 

PCSUER1 

R5.SUNUM 



*3$,$LPERR 

7 

(SP)*,(SP)+ 
LINMSK.DRPLIN 

NEWLINE 

NRC(R1>.STMP0 
6$ 

PC.CHPS2 

*8IT11,(R1) 

#R8UF .RBFPTR 

R8FPTR.R2 

PC.SUER2 

R5.SUNUM 



#5$.$LPERR 

10 

(SP)*.(SP>* 
LINMSK.DRPL IN 
NEWLIN 



;SIL0 OVERFLOW ERROR ?? 
;8R IF NOT 

;G0 LOCK OUT INTRS 
;GET THE WAS DATA 
;NOW CLEAR THE DH11 
.■CLEAR JUNK 

;G0 SET UP ERROR INFO 

;G0 SET UP LINE NO. IN MSG 



SET UP ERROR LOOP RETURN 

SILO OVERFLOW - BAD. BAD. BAD !!! 

POP GOES THE STACK 

SET THE DROPPED FLAG FOR THIS LINE 

GO TRY NEXT LINE 

CHAR AVAIL SET ?? 
BR IF YES 

GO LOCK OUT INTRS 
GET WAS DATA 
CLEAN IT UP 
NOW CLEAR DH11 
SET UP S/B DATA 

SET UP REGADR 

GO SET UP ERROR INFO 

GO SET UP LINE NO. IN MSG 



SET UP THE ERROR LOOP RETURN 
RECEIVER FALSE INTERRUPT 
POP GOES THE 5P 

SET THE DROPPED FLAG FOR THIS LINE 
GO TRY NEXT LINE 

SAVE THE DATA RECEIVED 
BR IF IT WAS VALID DATA 

GO LOCK OUT INTRS 

NOW CLEAR THE DH11 

WHICH CHAR WAS IT ?? 

SAVE CHAR NUMBER 

GO SET UP ERROR INFO 

GO SET UP LINE NO. IN MSG 



SET UP ERROR RETURN 

RECEIVED INVALID DATA 

POP GOES THE STACK 

SET THE DROPPED FLAG FOR THIS LINE 

GO TRY ANOTHER LINE 
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2896 










2897 


004012 








2898 


00401 2 


010346 






2899 


004014 


010446 






2900 


004016 


016777 


1 75160 




2901 


004024 


062767 


000002 


024436 


2902 


004032 


026767 


015546 


024430 


2903 


004040 


001013 






2904 


004042 


016703 


015526 




2905 


004046 


005403 






2906 


004050 


1 1 6704 


016070 




.2907 


004054 


006304 






2908 


004056 


060364 


A7A4 / r\ 

030160 




2909 


004062 


052^67 


000002 


015512 


2910 


004070 








2911 


004070 


012604 






2912 


004072 


012603 






2913 


004074 


00C002 







N 5 

PAGE 66 

SUB-PROGRAM 1 - DATA RELIABILITY TESTS 



SEG 0065 



i i\J V 


R3 -(SP) 


■PUSH R3 ON STACK 


Mnv/ 


R4 -(SP) 


•PUSH ON STACK 


MOV 


$TMPO,aRBFPTR \ 


STORE CHAR IN THE BUFFER 


ADD 


#2.RBFPTR 


UPDATE THE POINTER 




f»or tmu i nor r in ( 


FND OF RUFFFR " 
t ill/ \Jf our rcn 




7$ 


FAR IF NOT 


MOV 


CHRCNT.R3 


GET CHAR COUNT 


NEG 


R3 




M0V8 


LINE.R4 


•GET THE LINE NO. 


ASL 


R4 


■DOUBLE IT 


ADD 


R3,RT0TAL (R4) 


•UPDATE TOTAL RECEIVED COUNT 


BIS 


#SIT1.RDONE 


;SET THE RCVR DONE BLAG 


MOV 


(SP)+.R4 


;;P0P STACK INTO R4 


MOV 


(SP)+.R3 


;;P0P STACK INTO R3 


RTI 




;RE T URN TO WAIT LOOP 
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T1 SUB-PROGRAM 



B 6 

1 - DATA RELIABILITY TESTS 



SFQ 0066 



2914 
291 S 

2916 

2917 

2918 

2919 

2920 

2921 

2922 

2923 

2924 

2925 

2926 

2927 

2928 

2929 

2930 

2931 

2932 

2933 

2934 

2935 

2936 

2937 

2938 

2939 

2940 

2941 

2942 

2943 

2944 

2945 

2946 

2947 

2948 

2949 

2950 

2951 

2952 

2953 

2954 

2955 

2956 

2957 

2958 

2959 

2960 

2961 

2962 

2963 

2964 

2965 

2966 

2967 

2968 

2969 



004076 
004104 
004112 
004120 
004126 
004134 
004142 
004146 
004150 
004154 
004160 
004164 

004170 
004174 
004176 
004200 
004204 
004206 
004212 
004216 
004220 

004222 
004226 
004230 
004234 
004240 
004242 
004246 
004252 
004256 
004262 
004264 
004266 
004274 

004276 
004300 
004306 



012767 
012767 
012767 
012767 
012767 
012767 
116705 
006305 
060567 
060567 
060567 
060567 

1 1 7704 
000304 
105004 
1 56704 
000304 
052704 
017703 
020304 
001435 

010367 
010146 
016701 
016702 
010200 
162700 
004767 
004767 
004567 
022144 
023427 
012767 
104011 

012601 
032767 
001402 



;THIS ROUTINE IS CALLED TO CHECK 
; AND UPDATE THE STATISTICS TABlE 



030474 024364 

032754 024360 

030260 024340 

030320 024334 

030360 024330 

030420 024324 
015776 

024304 
024302 
024300 
024276 

024276 



015740 

100000 
024252 



174772 

024234 
024232 

032754 
000066 
010640 
010554 



004276 174614 



070000 174712 



CKER: 



004310 004767 000036 



004314 
004320 
004326 
004334 



005267 
062767 
026767 
001315 



024152 
000002 
015252 



004336 000207 



004340 
004342 
004344 



120304 
001402 
005277 



1$: 



024142 
024134 



2$: 



3$: 



UPDER: 



024110 



MOV 


#RBUF .RBFPTR 


MOV 


#TBUF , TBf PTR 


MOV 


*DATERR,DEPTR 


MOV 


tfPARERR.PEPTR 


MOV 


#OVRERR«ORPTR 


nuv 




MOVB 


LINE,R5 


ASL 


R5 


ADD 


R5.DEPTR 


ADD 


R5.PEPTR 


ADD 


R5.0RPTR 


ADD 


R5,FRPTR 


MOVB 


3T8FPTR.R4 


SUA8 


R4 


fi PR 


R4 


BIS8 


LINE ,R4 


SWAB 


R4 


BIS 


#8ITl5,R4 


MOV 


3RBFPTR # R3 


CMP 


R3,R4 


BEQ 


3$ 


MOV 


R3,$TMP7 


MOV 


R1 ,-(SP) 


MOV 


RBFPTR. R1 


MOV 


TBFPTR.R2 


MOV 


R2,R0 


SUB 


#TBUF ,R0 


JSR 


PC UPDER 


JSR 


PC.SUER2 


JSR 


R5.SUNUM 


LINE 




FM1 1 +23 




MOV 


#2$,$LPERR 


FRROR 


11 


MOV 


(SPJ+.R1 


BIT 


*70000,$TMP7 


BEQ 


3$ 


JSR 


PC, SOFT 


iNC 


T8FPTR 


ADD 


#2, RBFPTR 


CMP 


R8F END, RBFPTR 


BNE 


IS 


RTS 


PC 


CMP8 


R3,R4 


BEQ 


1$ 


INC 


3DEPTR 



THE RECEIVED DATA, REPORT ALL ERRORS, 
ENTRIES FOR ALL LINES ACTIVE 

.-SET UP POINTERS 

;SET UP POINTERS TO STATISTICS TABLES 

;GET LINE NO. AND DOUBLE IT 

.-POINT TO CORRECT LINE ENTRY IN TABcE 



;GET THE S/8 DATA 

;PJT LINE NO. IN HIGH BYTE 



AND FINALLY THE VALID DATA BIT 
GET THE WAS DATA 
WAS = S/B ????? 
BR IF YES 

SAVE THE WAS DATA 
SAVE THE DEVADR 
GET THE S8ADR 
GET THE WASADR 
GET XMIT BUFFER ADDR 
GENERATE CHAR * 

GO CHECK AND UPDATE THE DATA ERROR TABLE 
GO SET UP ERROR INFO 
GO PUT LINE NO. IN MSG 



SET UP ERROR RETURN 

DATA COMPARE ERROR OR P<VRI TY. FRAMING 

OR OVERRUN 

RESTORE THE DEVADR 

ANY PARITY. OVERRUN. OR FRAMING ERROR 

8R IF NOT 

GO TAKE CARE OF SOFT ERROR REPORT 

UPDATE POINTERS 

COMPARED ALL CHARS ?? 
BR IF NOT 



RETURN TO WAIT LOOP 

DATA BYTES CORRECT V 
BR IF YES 

COUNT THE DATA ERROR 
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?970 


004350 


000207 




1$: 


RTS 


2971 












2972 


004352 


006367 


174642 


SOFT: 


ASL 


2971 


004 356 


100002 






BPL 


2974 


004360 


005277 


024100 




INC 


2975 


004364 


006367 


1 74630 


IS: 


ASL 


2976 


004370 


100002 






BPL 


2977 


004372 


005277 


024070 




INC 


2978 


004376 


006367 


174616 


?$: 


ASL 


2979 


004402 


100002 






BPL 


2980 


004404 


005277 


024052 




INC 


2981 


004410 


000207 




3$: 


RTS 


2982 












2983 













PAGE 68 

SUB-PROGRAM 



PC 



C 6 

1 - DATA RELIABILITY TESTS 



SEO 006 7 



STMP7 
1$ 

SORPTR 

STMP7 

2$ 

3FRPTR 

STMP7 

3$ 

3PFPTR 
PC 



; RE TURN 

TEST FOR OVERRUN ERRORS 
BR IF NONE 
COUNT r 

TEST FOR FRAMING ERRORS 
BR IF NONE 
COUNT IT 

TEST FOR PARITY ERRORS 
BR IF NONE 
COUNT IT 
RE TURN 



CZDHN-D 


MACY11 


30AC1052) 27-DEC-78 15 


:31 PAGE 69 


D 6 




CZDHND.P11 27-DEC-78 


15:28 




T1 


SUB-PROGRAM 1 - DATA RELIABILITY TESTS SEQ 0068 


?984 










;THIS 


a ai ~ r ik ir 

ROl i INc 


1C /Al 1 TIN TA OA f H IT 

IS CALLED TO PRINT 


AllT TLlC TCf T CTATfCTI/*r 

OUT THE TEST STATISTICS 


2985 
















2986 


004412 


012767 


000001 


0*5106 


PRSTAT 


: MOV 


#1.LINMSK 


. rr T i itt BfT TCf T M A A is C A 

;5ci UP BIT TtSi nAHNcH 


2987 


aa/ / *i a 

004420 


aac aa i 

005001 








CLR 


R1 


;R1 CONTAINS THc L INc NO. 


2988 


AA/ / 

004422 


004567 


010410 






JSR 


R5,SUNUM 


./"A C C T 1 lA f\u1 1 W r ft. I CTAT Mf f C A /T 

,GU Sc l UP DH I I tr IN S'AT MESSAGE 


2989 


















2990 


AA/ j 

004426 


022142 








DHNUM 






2991 


/N/N / / 7 A 

004430 


ATC C11 








STMSG1+6 




2992 


004432 


1 rt/ / A 1 








TYPE 




;G0 TYPE THE STATISTICS HEADER 


2993 


Arty / 7 / 

004454 


02551 4 








STMSG1 






299*» 


004456 


1 A/ / A1 

1 0440 1 








TYPE 




. T VDC LfCAftCD 


2995 


AA/ / / A 

004440 


02561 7 








STMSG4 






2Wo 


















1QQ7 


AA/ / / O 
004442 


A7A "7 A 7 


01 5060 


01 5060 


1$: 


BIT 


LINMSK.DRPLIN 


;UJU Inli) LINt ufc I UHUHPtU ? 


1QQQ 


aa/ / 
UU*»*oU 


AA1 / 1 1 

UU I *• 1 1 








BE0 


2$ 


•DD TC MAT 

,oH Jr NU I 


















5U0U 


An/ /CO 

Lv4*0<: 


A1 A1 A 7 
U I U I O/ 


174542 






MOV 


R1 ,$TMP7 


• CA\/C TUC | FMC MA 


ZAA1 

3UU 1 


AA/ / CA 


AA/ CA7 


010354 






JSR 


R5,SUNUM 


• ftA Dl IT I IMC MA IM MCCCATC 
, UU r U I LiiNC nlU. if\l Pit jinUt 


7AA0 


A/V / AO 


AA1 OOA 

UU \cc\J 








STMP7 








AA/ / A/ 


vc J ' f O 








STMSG3 


♦10 




7AA/ 


A A/ / AA 


in/ / A1 
I U*»*«U I 








TYPE 






taaq 


AA/ / 7A 
UU4*»/U 


A0CC.AA 








STMSG3 






jUUO 


AA/ / 70 


AAA/ 7A 
UUU*« JO 








BR 


3$ 


• rn tcct mcvt i imc 
. uU I co I iMcAi Li>Mc 


IAA7 

3UU' 


















"I AAA 

3UUo 


A/V / 7/ 


A1 A1 AO 






2$: 


MOV 


R1,R2 


• CCT I ID DO I I f TU TADI C Tuf\CV 

;otl Ur Rc WJIH IfltJLt INDca 


7aao 
3UUV 


AA/ / 7 A 


AAA'S! AO 








ASL 


R2 




iai a 
5U I U 


AA/ CflA 

ULK» 3UU 


A7A7A7 


015022 


015016 




BIT 


LINMSK.LINSEL 


;UAS THIS LINE SELECTED ?? 


3U I i 


AA/ CAA 
UU«OUO 


AA1 /"?A 
UU I *OU 








BE0 


3$ 


;8R IF NOT 


ai ^ 


AA/ cm 
UtKO iU 


A1 A1 A7 
U lU IO' 


1 74466 






MOV 


R1,$TMP0 


.SET UP THE ERROR INFORMATION FROM 


7A1 
















; THE TABLES INTO THE MESSAGE POINTERS 


TAT / 


UU*« J 1 H 


A1 A0A7 


030160 


174462 




MOV 


RT0TAL(R2).$TMP1 




1A1 Q 
SU 1 J 


AA/.C00 


A1 A0A7 


030220 


174456 




MOV 


XT0TAL(R2),$TMP2 


IO 


A/VC7A 


A1 A0A7 
U I OcO f 


030260 


174452 




MOV 


DATERR(R2),$TMP3 


5U 1 r 




rt1 A0A7 
U I OcOf 


030320 


174446 




MOV 


PARERR(R2),$TMP4 


1A1 S 


AA/ C/ / 
UUm jhh 


A1 A0A7 
U IO£0/ 


030360 


174442 




MOV 


0VRERR(R2),$TMP5 


jU IV 


UU*» J J£ 


A1 A0A7 


030420 


174436 




MOV 


FRMERR(R2) ,$TMP6 


3020 


004560 


012767 


004570 


174322 




MOV 


*3$.$LPERR 


.•RETURN TO 3f AFTER PRINTING LINE 


3021 


004566 


104013 








ERROR 


13 


3022 


004570 


005201 






3$: 


INC 


R1 


;STEP TO NEXT LINE 


3023 


004572 


006367 


014730 






ASL 


LINMSK 


.•SHIFT THE MARKER 


3024 


004576 


001401 








BEQ 


ENDA 


;BR IF ALL LINES REPORTED 


3025 


004600 


000720 








BR 


1$ 


;G0 BACK AND DO THIS LINE 


3026 



















» 



fZDHN-D MArvn 30A(1052> 27-DCC-78 
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15: 



3027 
3028 
3029 
3030 
3031 
3032 
3033 
3034 
3035 
3036 
3037 
3038 
3039 



004602 
004604 
004610 
004616 
004622 
004630 
004636 
004644 
004650 
004652 
004656 
004664 
004666 



000004 
105067 
012767 
005267 
062767 
062767 
062767 
006367 
001002 
000167 
036767 
001 746 
0001 07 



174272 
000240 
015320 
000002 
000002 
000002 
014650 

004076 
014636 

175520 



3 1 
T1 

ENDA: 



PAGE 70 

SUB-PROGRAM 



E 6 

1 - DATA RELIABILITY TESTS 



SEU 0069 



004136 

015^.72 
015466 
015462 



014636 1$: 



SCOPE 

CLRB STSTNM 

MOV #240.$E0P 

INC DHNUM 

ADD 02.ADPTR 

ADD *2,VCPTR 

ADD #2.8RPTR 

ASL SELMSK 

BNE 1$ 

JMP $E0P 

BIT SELMSK.DHSEL 

BEO ENDA 

^MP RSTRTA 



RE-INJT TEST NUMBER FOR NEXT PASS 
NOP THE SCOPE IN ENDPASS ROUTINE 
GENERATE NEW DH11 NUMBER 
UPDATE THE TABLE POINTERS 



SHIFT MARKER TO TEST NEXT DH" 1 

BR IF NOT TESTED ALL DH1 1 ' S 

JUMP TO EOP IF WE HAVE 

IS THIS DH11 SELECTED ? 

BR IF NOT 

GO TEST THIS DH1 1 



CZDHN-D MAC Y 1 1 30A(1052> 27-DEC-78 15: 
CZDHND.P1 1 27-DEC-78 15:28 



31 PAGE 71 
SU8-PR0GRAM 



F 6 

SINGLE LINE ECHO/CABLE TESTS 



>tQ 0070 



5040 








30*. I 








5042 








3043 








3044 








5Us!> 








30 A 6 


004672 


012767 


1 77777 


3047 


004700 


005C67 


015434 


ta/ o 


004704 


005067 


r\ * j —3—3/ 

014776 


7/>/ A 
?ACA 


004710 


/Nrtrt 1/7 

000167 


174700 


5050 
5051 


004714 


012767 


1 60020 


5052 


AA/ 71 "5 

004 722 


nil 7/ 7 

012767 


AAA77A 

000330 


5U55 


AA/ 7 /A 

004/30 


1 a/ / ai 




5054 


AA/ 77 "1 
004/52 


026231 




5055 








3056 


AA/ 71/ 

004^54 


AAA 1/7 

000 I6f 


011256 


50d / 














5057 


AA/ 7/ A 

U0*t/*»0 


1 A/ / A1 

1 0m401 






AA/ 7/ 0 
OOH/A2 


026550 




5UO I 


AA/ 7/ / 
00*«/*»*» 


1 A/ ✓ 1 "5 

1 04«il 2 




50Oc 


AA/ 7/ A 
00m f HO 


A1 ")iLZ. 7 

01266' 


A1 C171 

0151/2 


jUOj 


AA/ 7C3 
OOm/3c 


A/ 77^.7 
0*t2'6i 


1 777X.A 

I / / /o0 


Xr\Aj. 
jUDh 


AA/ 7/LA 
UO*« /OO 


A1 A7A0 

0 1 6/ 02 


A1 C 1 ^.A 

U 1 5160 


7fU c 
JWJ 


A A/ 7/L/ 
00m / {)*• 


aac 

003202 




5UOO 


AA/ 7AA 
OOm /DO 


A1 07^.7 
Ul 2' 6^ 


AAAAA1 
00000 I 


jUO / 


A/V.77/ 
UUm / /*» 


AAtllAO 

UU55U2 




7/VQ 

5000 


AA/ 77A 
00m/ /O 


AA1 / A 7 

00 1405 




3U07 


AACAAA 
005000 


Art/ 7Z. 7 

00656/^ 


A1 / C3*? 

014522 


ZA7A 
5U/U 


AACAA/ 

003004 


AAA??? 

000^ f 5 




7A71 


AACAAX 

003006 


AA/ 7A 7 
004 /C^ 


A 1 *? "? 1 "J 

01 5212 


jKJf C 








7.A77 
51 . . ? 


AACA1 5 

0050 1 2 


AA^7A7 
00?/ 6/ 


Ai rjni 

01 5522 


Til 7/ 


AACA1 A 
VAJ50 16 


AA1 / A1 

00 l*«01 




5U/ 3 




AAA0A7 
00020/ 




7A7A 

yjf o 








*A77 
3U/ / 


AACA73 


1 ACAjI 7 

I 0506/ 


A71 1 7/ 

021 1 f 4 


7A7B 
3Uf o 


AACA0A 

UU3Uc6 


1 A/ / A1 
I 0m*»0 I 




7A7Q 


AACA1A 

00?050 


02^ 5!>2 




3U00 


AACA73 
00303c 


1 A/ / 1 A 




50o I 


AACA7/ 
UU3U3m 


rtl *)/rtA 

01 2600 




7AH 3 


AACA7./C 
UU3U30 


1 077AA 

1 22 f 00 


000015 


max 


AACA/ ~> 

UU5U*»c 


AA1 / AC 

001 405 




3UO*» 


vAOUmh 


1 1 AAA 7 


AT I 1 CI 

02 11 52 


3<Jo3 


aacaca 
003030 


1 A/ / A1 




3UOO 


aacaco 

UU5U3c 


VCOCCC 




jUOr 


UU3U3*» 


AAA7AA 
OOOf DO 




jUoo 


AACACA 


1 AC""*.7 
I'lJI Of 


ATI 1 / A 

021 140 




\J' J J \J\JC 


AA1 / 1 p 


3090 


005064 


122767 


000116 


3091 


005072 


001406 




3092 


005074 


122767 


000131 


3093 


005102 


001347 




3094 


005104 


000167 


000574 


3095 









. SBTTL SUB-PROGRAM 2 - SINGLE LINE ECHO/CABLE TESTS 



015452 ECHO: 



014572 
014566 



ECH01 



ECH02: 



015164 
014532 



1$: 
2t: 

3$: 
4$: 



5$: 



021130 
02 1 120 



MOV 
CLR 
CLR 
JMP 

MOV 
MOV 
TYPE 
ECMSG1 



«»*»*»*»**»***********.*»»»*»«*»»* 

* SINGLE LINE ECHO TESTS * 
********************************** 



*-1,RETFLG 
DPFLG 
VCFLG 
BEGINA 

#1 60020, DHADR 
#330.DHVCT 



IMP 

Jnr 




TVPF 
i »— c 




CTMC/tp 




pnnr T 




nuv 


(SP)*,LINE 


□ J L 


•1777XA 1 T fcic 
m \ f f f CU , L 1 NC 


MOV 


1 INF R? 


[Mr 




MAW 

1 IU V 








DC W 




A^l 




DD 

on 






pr 1 pr in 


TST 


DPFLG 


8EQ 


3t 


RTS 


PC 


CLR8 


EC2 


TYPE 




SWSGI 




RDCHR 




MOV 


(sp;*,ro 


CMP9 


#15,R0 


BEQ 


5$ 


M0V8 


R0.EC2 


TYPE 


EC2 




BR 


4$ 


TST8 


EC2 


BEQ 


ECH03 


CMP8 


#116,EC2 


BEQ 


ECH03 


CMP8 


#131. EC2 


BNE 


3$ 


JMP 


SENDP1 



SET RETURN FLAG - COME BACK 
CLEAR PATTERNS TEST FLAG 
INIT VECTOR SETUP FLAG 
TO 'tCHOV AFTER SETUP 

SET UP DH11 DEFAULT ADDRESS 

SET UP DH11 DEFAULT VECTOR 

PRINT I.D. MESSAGE 

"SINGLE LINE ECHO TEST - CONNECT 

TERMINAL TO TEST LINE" 

GO SET UP DEVICE AND VECTOR 

ADDRESSES - COME BACK TO 'KH02" 

GO ASK FOR r TY INPUT 
""LINE K (00 - 17 OCTAL)" 
INPUT LINE NO. FM TTY 
GET NO. TYPED 
CLEAR JUNK 
GET LINE NO. 

CORRECT FOR SHIFT ROUTINE 
INIT LINE SELECT BIT MASK 
COUNT ONE LINE CHECKED 
BR IF DONE 
SHIFT SELECT BIT 
GO COUNT IT 

GO ASK FOR AND SET UP LINE PARAMETERS 

DATA PATTERNS TEST ? 
3R IF NOT 

RETURN TO PATTERNS TEST 

CLEAR ECHO BUFFER 

"SEND MODE - / OR N ?" 
GET CHAR TYPED 
GET CHAR TYPED 
WAS IT A <CR> ? 
8R IF YES 

ECHO WHAT WAS TYPED 



GO WAIT FOR TERMINATOR 

<CR> ONLY ?? 

BR IF YES 

WAS IT AN "N" ?? 

BR IF YES 

WAS IT A "V" , '' 

BR IF NOT ASK' AGAIN 

GO TO SEND R0U T INE 



CZDHN-D MACY11 30AO052) 27-DEC-78 15 
CZDHND.P11 27-DEC-78 15:28 



;31 PAGE 72 
SUB-PROGRAM 



G 6 

2 - SINGLE LINE ECHC 



3096 

3097 

3098 

3099 

3100 

3101 

310? 

3103 

3104 

3105 

3106 

3107 

3108 

3109 

3110 

3111 

3112 

3113 

3114 

3M5 

3116 

3*17 

3118 

3119 

3120 

3121 

3122 

3123 

31 24 

3125 

3"! 26 

3127 

3128 

3129 

3130 

3131 

*132 

5133 

3134 

3^5 



005110 
0051 14 
005120 
005124 
005132 
005136 
005142 
005146 
005152 
005156 
005160 
005164 
005170 
005174 
005200 
005204 
005212 
005216 
005220 
005222 
005224 
005226 
005230 
005232 

005236 
005244 
005250 
005254 
005256 
005262 

005264 
005270 
0C5274 
005300 
005306 
005310 



004767 
005067 
005067 
012767 
016701 
012711 
016700 
012720 
116710 
005720 
012720 
116710 
016711 
012702 
052711 
016761 
004567 
022144 
026406 
104401 
026366 
104401 
026445 
004767 

012767 
005067 
005/67 
001015 
004767 
000772 

010167 
011167 
052711 
012767 
104016 
000167 



014320 
015216 
015240 

1 20240 01 5006 

014356 

004000 

014350 

005462 

014762 

005314 
01475 1 
014750 
032754 
000100 

014360 000004 
007620 



ECH03: 



014162 

000200 
015064 
015062 

011624 



1 73674 
173706 
004000 
005310 

177424 



015066 DHWAIT: 
1$: 



1 73602 



2$: 



JSR 
CLR 
CLR 
MOV 
MOV 
MOV 
MOV 
MOV 
M0V8 
1 ST 
MOV 
M0V8 
MOV 
MOV 
BIS 
MOV 
JSR 
LINE 
FCMSG3 
TYPE 
ECMSG3 
TYPE 
ECMbG4 
JSR 

MOV 
CLR 
TST 
BNE 
JSR 
BR 

MOV 

MOV 

BIS 

MOV 

ERROR 

JMP 



PC , CHPS2 

CEXIT 

EXFLAG 

#120240, DHRLVL 
DHADR.R1 
#BJT11.(Ri; 
DHVCT,RO 
#RINT2. (R0)+ 
DHRLVL . (RO) 
(R0) + 

#TINT2.(R0)+ 

DHTLVL , (RO) 

LINE.(R1) 

#TBUF,R2 

#8IT06.(R1) 

CURLPR.LPR(RI) 

R5.SUNUM 



+20 



PCCHPS1 

#200. TIME A 
TIMES 
CEXIT 
2$ 

PC.TIMEIT 
1$ 

R1.SREG1 

(RD.ITMPO 

#8IT11.(R1) 

#2$,$LPERR 

16 

CCH02 



/CABLE TESTS ^FO 0071 

;G0 LOCK OUT INTRS 
;INIT CONTROL-C EXIT FLAG 
.-CLEAR TEST EXIT FLAGS 
;INIT FOR BR LEVEL 5 
;SET UP DEVICE ADDRESS 
; CLEAR THE SELECTED DH1 1 
;GET THE FIRST VECTOR ADDRESS 
;SET UP THE VECTORS 



;SET THE LINE SELECT BITS 
;INIT BUFFER POINTER 
.•ENABLE RCVR INTRS 
;SET UP LINE PARAMETERS 
;PUT LINE NO. IN MESSAGE 



;GIVE DIRECTIONS 

;"G0 TYPE CHARS ON TEST TERMINAL" 
.-PRINT DIRECTIONS 

;TC0NTR0L-C TO EXIT] CCONTROL-E TO ECHO BUFFER]" 
;G0 CLEAR PSU 

;INIT TIMER "A" 
;INIT TIMER '8" 
; CONTROL-C EXIT ?? 
;8R IF YES 
.-CALL TIMER 
;BR IF NO TIMEOUT 

.-SAVE DEVADR 
; SAVE CONTENT OF SCR 
.•CLEAR OUT THE DH11 
.SET ERROR LOOP RETURN 
.•REPORT RCVP WAIT TIMEOUT 
;G0 RESTART 
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3136 








3137 








3138 


005314 


042711 


120C00 


3139 


005320 


022767 


000001 


3KO 


005326 


001437 




3141 


005330 


022767 


000003 


3142 


005336 


001437 




3143 


005340 


022767 


000002 


3144 


005346 


001403 




3145 


005350 


020227 


034 1 04 


3146 
3147 


005354 


002434 




005356 


012767 


000003 


3148 


005364 


162702 


032754 


3149 


005370 


005402 




315C 


005372 


010261 


00001 0 


3151 


005376 


012761 


032754 


3152 


005404 


012767 


000200 


3153 


005412 


052711 


020000 


3154 


005416 


016761 


014104 


3155 


005424 


000415 




3156 








3157 


005426 


012767 


1 77777 


3158 


005434 


000411 




3159 








3160 


005436 


012702 


032754 


3161 


005442 


005067 


014716 


3162 


005446 


012767 


000200 


3163 


005454 


052711 


000100 


3164 








3165 


005460 


000002 




3166 








3167 









:31 PAGc 73 
SUB-PROGRAM 2 

.•TRANSMITTER 



TINT?; 



015036 
O 1 5026 
01S016 

015000 1$: 



000006 
014720 

000012 



2$: 

3$: 
31S: 

4$: 



BIC 
CMP 
BFQ 
CMP 
BEQ 
CMP 
BEQ 
CMP 
BLT 
MOV 
SU8 
NEG 
MOV 
*!3V 
MOV 
BIS 
MOV 
BR 

MOV 
BR 

MOV 
CLR 
MOV 
BIS 

RTI 



H 6 



SINGLE LINE ECHO/ CABLE TESTS 



SCO 0072 



TERRUPT SERVICE ROUTINE TWO 



#8i'T15+8IT13,(R1> 

#1 .EXFLAG 

2$ 

#3.EXF L AG 
3$ 

#?. EXFLAG 
1$ 

R2.*T8UF*600. 
31$ 

#3. EXFLAG 

0T8UF.R2 

R2 

R2.8CRCRD 

#T8UF.CAR(R1) 

02OO.TIMEA 

*8IT13.(R1) 

LINMSK.8AR(R1) 

4$ 

#-1,CEXIT 
4S 

*T8UF,R2 
EXFLAG 
#200, TIME A 
#8I706.(R1> 



DISA8I E XMIT INTRS 
CONTROL-C FLAG ? 
8R IF YES 

WAS BUFFER JUST DUMPED ' 

8R IF YES 

CONTROL-E FLAG ? 

8R IF YES 

SUFFER FULL ? 

8R IF NOT 

SET DUMP FLAG 

SET UP BYTE COUNT REG 



SET UP CURRENT ADDR REG 

INIT TIMER 

ENABLE XMITTR INTR 

ACTIVATE LINE 

GO EXIT 

;SET CONTROL-C EXIT 
;G0 EXIT 



RESET ECHO BUFFER FCOPINTER 
INIT EXIT FLAG 
INIT TIMER AGAIN 
ENABLE RCVR INTR 



;RE TURN TO MAINLINt 



CZDHN-0 MACY11 30AM 052) 27-DEC-78 
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15 



31 PAGE 74 
SUB-PROGRAM 



I 6 

2 - SINGLE LINE ECHO/CABLE TESTS 



StO 0073 



3168 

3169 

3170 

3171 

3172 

3173 

3174 

3175 

3176 

3177 

3178 

3179 

3180 

3181 

3182 

3183 

31 84 

3185 

3186 

3187 

3188 

3.89 

3190 

3191 

3192 

3193 

3194 

3195 

3196 

3197 

3198 

3199 

3200 

3201 

3202 

3203 

3204 

3205 

3206 

320? 

3208 



005462 
005466 
005474 
005502 
005510 

005512 
005520 
005526 
005534 
005542 

005544 
005552 

005554 
005562 
005570 
005574 
005600 
005606 
005614 

005616 
005624 
005626 
005632 

005634 
005642 
005646 
005654 
005662 
005670 
005674 
005702 



042711 
016167 
042767 
022767 
001015 

112767 
112767 
012761 
012767 
000444 

022767 
00*021 

112767 
112767 
112722 
112722 
012761 
012767 
000417 

022767 
001003 
004767 
000410 

116767 
116722 
012761 
012761 
012767 
052711 
016761 
000002 



000100 
000002 
1 77600 
000003 



000136 
000103 
177776 
000001 



173506 
173500 
173472 



014646 
014641 
000010 
014622 



.■RECEIVER INTERRUPT SERVICE ROUTINE TWO 

RINT2: BIC #8IT06.(R1) 

MOV NRC(R1) .STMPO 

BIC #1 77600, STMPO 

CMP #3. STMPO 

BNE 1$ 

M0V8 #136.EC8UF 

MOVB #103,ECBUF+1 

MOV *-2.8CR(R1) 

MOV #1 .EXFLAG 

BR 4$ 



000005 173430 1$: 



000136 
000105 
000136 
000105 
1 77776 
000002 



00001? 
012066 



173342 
1 73334 
1 77777 
022366 
000200 
020000 
013626 



014604 
0^577 



000010 
014550 



173356 2S: 



CMP #5, STMPO 

BNE 2$ 

M0V8 *136.ECBUF 

M0V8 #105.ECBUF+1 

M0V8 #136. (R2) + 

M0V8 #105.(R2)+ 

MOV #-2.8CR(R1) 

MOV #2. EXFLAG 

BR 4$ 

CMP #12. STMPO 

BNE 3$ 

JSR PC.LDFJLL 

BR 4S 



014524 3$: M0V8 STMPO, EC8UF 

M0V8 STMPO. (R2)> 

000010 MOV #-1,8CR(R1) 

000006 4$: MOV #EC8UF ,CAR(R1 ) 

014442 MOV #200.TIMEA 

BIS #8IT13,(R1) 

000012 MOV LINMSK.8AR(R1) 

RTI 



.■DISABLE RCVR INTR 
.-SAVE THt DATA TYPED 
.-CLEAR HIGH BYTE 
.■CONTROL-C TYPED ?? 
;8R IF NOT 

;SET UP TO ECHO CONTROL-C 

;SET UP BCR REG 

; SET CONTROL-C FLAG 

;G0 OUT PUT CHAR TYPED 

;WAS IT A CONTROL-E ?? 
;8R IF NOT 

;SET UP TO ECHO CONTROL-E 

;PUT IN THE ECHO BUFFER 

;SET UP BYTE COUNT REG 
;SET CONTROL -E FLAG 
;G0 EXIT 

;WAS IT A LINE FEED ?? 
;8R IF NOT 
;G0 LOAD FILLERS 
;G0 EXIT 

.SET UP CHAR TO ECHO 

.OUTPUT ONE CHAR ONLY 
.SET UP CURRENT ADDR REG 
;INIT TIMER AGAIN 
.-ENABLE XMITTR INTR 
.-ACTIVATE THE LINE 
.-RETURN TO MAINLINE 



CZDHN-D MAC Y1 1 30A<1052) 27-DEC-78 
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15:31 PAGE 75 
SUB-PROGRAM 



2 - SINGLE LINE 



3209 

3210 

3211 

3212 

3213 

3214 

3215 

3216 

3217 

3218 

3219 

3220 

3221 

3222 

3223 

3224 

3225 

3226 

3227 

3228 

3229 

3230 

3231 

3232 

3233 

3234 

3235 

3236 

3237 

3238 

3239 

3240 

3241 

3242 

3243 

3244 

3245 

3246 

3247 

3248 

3249 

3250 

3251 

3252 

3253 

3254 



005704 
005706 
005710 
005714 
005716 
005720 
005724 
005726 
005730 
005734 

005736 
005744 
005746 
005752 

005754 
005756 
005762 
005766 
005770 
005772 

005774 
005776 

006000 
006004 
006010 
006012 
006014 
006016 
006020 
006024 
006026 
006032 
006034 
006036 

006040 

006044- 

006046 

006054 

006056 

006064 

006066 



104401 
027402 
012705 
104410 
012600 
110067 
104401 
026222 
022700 
001421 

026727 
00301 5 
C22700 
001010 

1 1 0025 
116704 
116725 
005304 
001 374 
000750 

110025 
000746 

004767 
105067 
104401 
027462 
104410 
012600 
122700 
001405 
110067 
104401 
026222 
000766 

105767 
001 71 7 
122767 
001713 
122767 
001347 
000167 



032754 
020276 
000003 

013632 000400 
000012 



014450 
014442 



SEND 0 * 
1$: 



011636 
020212 



2S: 



3$: 



4$. 
5S: 



6$: 



00001 5 
0201 70 

020156 7$: 
000116 020146 
000131 020136 
1 76646 



T VPF 






#T8UF.R5 


MOV 


RDCHR 




MOW 


RO 


ITUVu 


R0 FT? 


TVPF 




EC2 




CMP 


#3.R0 






fMP 


CHRCNT #256 


o\j 1 


4$ 


CMP 


#12 RO 


BNE 


3$ 


M0V8 


RO. (R5) » 


M0V8 


FILL8.R4 


M0V8 


F ILLA, (R5) ♦ 


DEC 

\s l_ V. 


R4 


BNE 


2$ 


BR 


1$ 


MOVB 


RO- (R5) + 


BR 


1$ 


JSR 


PC SENDP2 


CLRB 


EC2 


TYPE 




SNMSG3 




RDCHR 




MOV 


(SP)*.R0 


CMPB 


#15,R0 


BEQ 


7$ 


MOVB 


R0.EC2 


TYPE 




EC? 




BR 

on 


6$ 


TST8 


6C2 


BEQ 


SENDP1 


CMP8 


#116. EC2 


BEQ 


SENDP1 


CMP8 


#131 .EC2 


BNE 


5$ 


JMP 


ECH02 



ECHO/CABLE TESTS SEO 0074 

;ASK FOR DIRECTIONS 

;"TYPE SEND BUFFER - TERMINATE WITH CONTROL-C" 
;SET UP BUFFER POINTER 
;GET CHAR 

.-ECHO CHAR 



;WAS IT A CONTROL-C ?? 
;BR IF YES 

.'BUFFER FULL ?? 
;8R IF YES 

;WAS IT A LINE FEED ? 
;8R IF NOT 

.-LOAD CHAR WPED 
;GET FILLER COUNT 
;L0AD A FILLER 
.•COUNT IT 
;8R IF NOT DONE 
;GET SOME MORE INPUT 

.LOAD BUFFER 

;G0 GET SOME MORE 

;G0 XMIT THE BUFFER 
.CLEAR ECHO BUFFER 

.•"CHANGE PARAMETERS- Y OR N" 

;GET CHAR 

;WAS IT A <CR> HE TYPED 7 ? 
;BR IF IT WAS 
.ECHO IT 



;G0 WAIT FOR TERMINATOR 

;<CR> ONLY ?? 

;BR IF YES 

.DID HE SAY NO ?? 

;8R IF HE DID 

;DID HE SAY YES ?? 

;G0 ASK ALL OVER AGAIN 

;G0 ASK FOR NEW PARAMETERS 
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;31 PAGE 76 
SUB-PROGRAM 



K 6 

THREE - DATA PATTERNS TESTS 



SEO 00 7 5 



3255 








5256 
















7TCQ 

3258 








7TCA 

3259 








3260 








5261 


0060 


A1 37^.7 

Ul cfof 


1 77777 
I f f f 1 ( 


■73^.3 
5c62 

5<:65 


r\r\jL 1 AA 
006 1 00 


005067 


A1 / 3/ A 


006 1 0*» 


AA^ AA7 

00506/ 


A1 7^7A 
U I JJ / O 


52oh 


aa^. 1 1 A 
0061 10 


AAA1 z 7 

000 1 6 f 


1 77^AA 
I / 3 3UU 


5265 










0061 1»» 


A1 37A7 

01 c/ 6f 


1 AAA 3 A 


73^.7 

5*:6f 


006' cc 


A1 37A7 
0 idfOf 


AAA77A 
UUU3 3U 


73AQ 

5<:oo 


aaai 7 a 
0O6 l 50 


TA/ / A1 






0061 id 


A37^31 
UUU I 0 ' 




737A 
5c /U 


OUO 1 


U I UU30 


7371 

5<: r I 








btf c 


AA/ 1 / fl 

0UO I *»u 


A AZ. 7A7 
UUh/O/ 


1 7A57Z, 
1 / 03 / «• 


7377 


aaai a/. 


AAA 7A7 
vJU 4 * / O / 


A i 7 1 7A 




AAA1 ^A 






JC.fl 


UOO 1 jc 


A37^77 
\JcfJf f 




737A 


aaai «;/ 


1 AZ.£1 7 




7377 


UUO I 30 


A1 3AAA 




737R 


aaa i Afi 

UUO 1 Ov 


\J\) 1 N UO 




737Q 








73HA 






\J\J 1 W 1 


73H1 


AAA1 AA 


AA3/A«i 




73R3 


AA/,1 7A 


1 t)Lcm 

\ yHHy i 




73B7 
jluj 


AAA 1 73 


HP7AX.1 
Uc / OJ 1 




iciCt 


AAA 1 7Z. 
UOO I f *• 


Uw'J r O 3 




738^ 










AAA1 7A 
UL/O I / O 


U It' uu 




73B7 

JCOf 


AA/.3A3 


aac/aa 




7 TOO 


AAA 3 A/ 


A1 AAZ.7 


A1 


3?89 








3290 


006210 


012767 


120240 


3291 


006216 


016700 


013274 


3292 


006222 


012720 


010252 


3293 


006226 


116710 


01 3706 


32% 


006232 


005720 




3295 


006234 


012720 


007630 


3296 


006240 


116710 


013675 



.S8TTL SUB-PROGRAM THREE - DATA PATTERNS TESTS 



*************************** 

* DATA PATTERNS TESTS * 
*************************** 



014240 EXPAT: 



EXPAT1 



tXPAT2: 
1$: 



2S: 
3$: 



013722 



MOV 


#-1 DPFLG 

FT 1 j IS ' I L_ \J 


;SET PATTERNS TEST FLAG 


CLR 


RETFLG 


•CLR ECHO TESTS FLAb 


CLR 


VCFLG 


; CLEAR VECTOR SETUP FLAG 


-MP 


BEGJNA 


;G0 SET UP RETURN TO "EXPAT1" 


MOV 


*1 60020, DHADR 


;SET UP DEFAULT DH11 ADDR 


MOV 


A330.DHVCT 


;AND VECTOR TOO 


TYPE 




;"DATA PATTERNS TESTS - CONNECT TES T JUMPAR' 


DPMSG1 




JMP 


INPAR 


;G0 GET SOME PARAMETERS RETJRN TO EXPAT2 


JSR 


HCECH02 


;G0 GET REST OF THE PARAMETERS 


JSR 


PC.SUCLMK 


;G0 SET UP CHAR LENGTH MASK 


TYPE 






DPMSG2 




.•'Buffer size ? (1-512> 


RDDEC 




;GET iHE SIZE TYPED 


MOV 


(SP)+.R0 




BEG 


2$ 


;8R IF DEFAULT TO 256. <CR> 


CMP 


RO,*513. 


;T00 BIG ? 


BLT 


3$ 


;8R IF NOT 


TYPE 




."INVALID SIZE - TRY AGAIN" 


DPMSG3 




BR 


1$ 


;G0 ASK AGAIN 


MOV 


ff256.,R0 


.'DEFAULT TO 256. BYTE BUFFER 


NEG 


RO 


.-MAKE IT NEG BYTE COUNT 


MOV 


R0, CHRCNT 


.-SAVE IT FOR TEST 


MOV 


*1 20240. DHRLVL 


;SET BR LEVELS TO BR5 


MOV 


DHVCT.RO 


;SET UP VECTORS 


MOV 


ffRINT3,(R0)* 




M0V8 


DHRLVL. (R0) 




TST 


<R0)* 




MOV 


#TINT3.(R0)+ 




M0VB 


DHTLVL.(RO) 





L 
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1/VOcHS 


1 o^£07 












JC70 


uvDcsD 


00^0*7 


01 LCX7L 






n R 




J£77 


ooa?*;? 




01 77LL 

Jiff 








FT? 
Etc 


7 7 ATI 
JjUv 


lAJOc JO 


m a7oi 


01 323? 






nUV 


DUADR R1 


^01 


oo6?6? 


in^.4m 








T YPF 


*,*.o? 

J Jut 


AAA PAZ 


Uc' ODD 












JJwJ 


AAA? A* 
vVOCOO 


1 WHS 1 V/ 






7% • 

f 9 ■ 






7 70/ 
J J\JH 


ooa?70 


ni ?60o 








MOW 

1 IU V 


rcp)t OO 




AAAP7P 


1 ?00?7 


00001 S 








R0 lt\ S 


77AA 


006? 76 


001407 












^307 


AAA7AA 


0100A7 

V/ 1 VJ UU r 


014040 






MOV 

1 lv V 


on OATPAT 


^OR 

J JvO 


006304 


1 10067 


01771P 






mowr 


R0 PC? 


3309 


006310 


104401 












^310 


00631 ? 


0?6??? 

\JC\JCC c 








FT? 




331 1 


006314 


000764 








Ftp 


7$ 


331? 
















3313 


006316 

WW 9 I w 


104401 






9$ • 


TYPF 




3314 


006320 

VWV -/c V/ 


027740 

VC » • ~w 








DPMSG5 




3315 


00632? 

WW* «/C C 


105767 

1 V J f \Jf 


01 7674 






TSTB 


FC? 


3316 


006326 


001005 

WW l WW V 








BNF 


8$ 


3317 


006330 

WWV/ J J\J 


012767 


00001 5 

WWWW 1 J 


014010 




MOV 

1 Iw V 


#15 PATFLG 


3318 


006336 


000167 


000506 






IMP 


DPATCR 


3319 
















3320 

J JC W 


006342 


022767 

WC C t \J ' 


000101 

WWW 1 w < 


013774 




CMP 


#101 DATPAT 


3321 


006350 

WWW j/ -r W 


001002 

WW I wwt 








BNF 


1$ 


3322 


006352 


000167 

V WW 1 ' 


C00102 

W WW ■ Vb 






IMP 

w* ■ 


DPATA 


3323 
















3324 


006356 


022767 


000125 


013760 


1$: 


CMP 


#125 DATPAT 


3325 


006364 


001002 

WW ' www 








BNE 


2$ 


3326 


006366 


0OC67 


C00164 

WWW ■ 






JMP 


DPATU 


3327 
















33?8 


006372 


022767 


000104 

WWW ' w » 


013/44 


2$: 


CMP 


#104 DATPAT 


3329 


006400 


001002 

WW ■ WWw 








BNE 


3$ 


3330 


006402 

W » W L. 


000167 

W * J W I W ' 


000246 

wwwc ~ w 






JMP 


DPATD 


3331 
















3332 


006406 


022767 


000122 


013730 


3$: 


CMP 


#122. DATPAT 


3333 


006414 


001002 








BNE 


4S 


3334 


006416 


000167 

WWW ' ' 


000330 

WW W — / ~* w 






JMP 

w* » 


DPATR 


3335 
















3336 


006422 


022767 


000123 


013714 


4$: 


CMP 


#123 DATPAT 


3337 


006430 


001002 

WW 1 W W L 








BNE 


5$ 


3338 
3339 


006432 


000167 


000474 






JMP 


DPATS 


3340 


006436 


022767 


000102 


01 3700 


5$: 


CMP 


#102. DATPAT 


3341 


006444 


001002 








BNE 


6$ 


3342 


006446 


000167 


000620 






JMP 


DPAT8 


3343 














3344 


006452 


104401 






6$: 


TYPE 




3345 


006454 


030002 








DPMSG6 




3346 


006456 


000672 








BR 


EXPAT 3 


3347 















^NS TESTS SE0 0076 

.-TEST FOR CHANGE IN jOF T-SWR 
.-CLEAR <CR> SEQUENCE FLAG 
.'CLEAR ECHO BUFFER 
;INIT R1 TO POINT TO SCR REG 

.-'PATTERN TYPE ? (A.U.D.R.S. OR B)" 

;GET WHAT HE TYPED 
;WAS IT A <CR> ?? 
;8R IF YES 

;ECH0 IT 

;G0 WAIT FOR TERMINATOR 

;"SET SR07=1 TO LOCK ON TEST PATTERN' ' 
;<CR> ONLY ?? 
;8R IF NOT 

;G0 SEQUENCE A.U.D.R PATTERNS 

.•ALTERNATING 1/0 ? 
;8R IF NOT 
;G0 DO IT 

;UP COUNT PATTERN ~> 
;BR IF NOT 
;G0 DO IT 

;D0fcW COUNT PATTERN ? 
;8R IF NOT 
;G0 DO IT 

.•RANDOM PATTERN ? 
;8R IF NOT 
;G0 DO IT 

.•SINGLE CHAR PATTERN ? 
;8R IF NOT 
;G0 DO IT 

; TYPE IN BUFFER ? 
;BR IF NOT 
;G0 DO IT 



.'"INVALID PATTERN - TRY AGAIN" 
;G0 ASK AGAIN 
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3348 

3349 

3350 

3351 

3352 

3353 

3354 

3355 

3356 

3357 

3358 

3359 

3360 

3361 

3362 

3363 

3364 

3365 

3366 

3367 

3368 

3369 

3370 

3371 

3372 

3373 

3374 

3375 

3376 

3377 

3378 

3379 

3380 

3381 

3382 

3383 

3384 

3385 

3386 

3387 

3388 

3389 

3390 

3391 

3392 

3393 

3394 

3395 

3396 

3397 

3398 

3399 

3400 

3401 

3402 

3403 



006460 
006464 
006470 
006474 
006500 
006506 

006510 
006516 
006522 
006530 
006532 
006540 
006542 
006544 
006550 
006552 

006556 
006562 
006566 
006572 
006576 
006604 

006606 
006614 
006620 
006626 
006630 
006636 
006640 
006642 
006646 
006650 

006654 
006660 
006664 
006670 
006674 
006702 

006704 
006712 
006716 
006724 
006726 
006734 
006736 
006740 
006744 
006746 

006752 
006756 



005067 
004767 
004767 
005267 
026767 
001 366 

016767 
005067 
012767 
104017 
022767 
001001 
000207 
105777 
100745 
000167 

005067 
004767 
004767 
005267 
026767 
001366 

016767 
005067 
012767 
104020 
022767 
001001 
000207 
105777 
100745 
000167 

005067 
004767 
004767 
005267 
026767 
001366 

016767 
005067 
012767 
104021 
022767 
001001 
000207 
105777 
100745 
000167 

005067 
004767 



013656 
012440 
001016 
013642 
01 3650 



01 3626 
013620 
006532 

000015 



1 72370 

1 77466 

013560 
012370 
000720 
013544 
013552 



DPATA: 
1$: 



013634 



172444 
1 72360 
013606 2$: 

3$: 



DPATU: 
1$: 



013536 



013530 172346 
013522 

006630 172262 

000015 013510 2$: 



\72272 

177370 

013462 
01232? 
000622 
013446 

013454 013440 



3$: 



DPATD: 
1$: 



013432 
013424 
006726 

000015 



172174 

U7272 

013364 
012256 



172250 
172164 
013412 2$: 

3$: 



DPATR; 
1$: 



CLR 
JSR 
JSR 
INC 
CMP 
BNE 

MOV 

CLR 

MOV 

ERROR 

CMP 

BNE 

RTS 

TST8 

BMI 

JMP 

CLR 
JSR 
JSR 
INC 
CMP 
BNE 

MOV 

CLR 

MOV 

ERROR 

CMP 

BNE 

RTS 

TSTB 

BMI 

JMP 

CLR 
JSR 
JSR 
INC 
CMP 
BNE 

MOV 

CLR 

MOV 

ERROR 

CMP 

BNE 

RTS 

TSTB 

BMI 

JMP 

CLR 

JSR 



M 6 

- DATA PATTERNS TESTS SEO 00 7 7 



DATCNT ; INI T ITERATION COUNTER 

PC.SUPATA ;G0 SET UP THE PATTERN 

PCDHST2 ;G0 EXECUTE IT ON SELECTED DH11 

DATCNT ;C0UNT IT 

PATLIM. DATCNT ; DONE IT ENOUGH TIMES 

1$ ;BR IF NOT DO IT AGAIN 

DATCNT.SREGO ;SAVE ITERATION COUNT 

DATCNT ;INIT COUNTER 

02S.SLPERR .COME BACK TO 2$ 

17 ; REPORT DONE SPECIFIED NO. OF ITERATIONS 

015.PATFLG .'CYCLING FOUR PATTERNS ? 

3$ ;8R IF NOT 

PC .-RETURN TO EXECUTE NEXT PATTERN 

aSWR ;LOCK ON THIS PATTERN ?? 

1$ ;8R IF YES 

EXPAT3 ;G0 ASK FOR NEW PATTERNS 

DATCNT ;INIT ITERATION COUNTER 

PC.SUPATU ;G0 SET UP THE PATTERN 

PC ,DHST2 ;G0 EXECUTE IT ON SELECTED DH11 

DATCNT .-COUNT IT 

PATLIM, DATCNT .-DONE IT ENOUGH TIMES ? 

1$ ;BR IF NOT DO IT AGAIN 

DATCNT.SREGO ;SAVE ITERATION COUNT 

DATCNT ;INIT COUNTER 

#2$.$LPERR .COME BACK TO 2$ 

20 .-REPORT DONE SPECIFIED NO. OF ITERATIONS 
*1S 04 T< G .-CYCLING FOUR PATTERNS ? 

35 ;BR IF NOT 

PC .-RETURN TO EXECUTE NEXT PATTERN 

aSWR ,-LOCK ON THIS PATTERN ?? 

1$ ;BR IF YES 

EXPAT3 ;G0 ASK FOR NEW PATTERNS 

DATCNT ;INIT ITERATION COUNTER 

PC.SUPATD ;G0 SET UP THE PATTERN 

PODHST2 ;G0 EXECUTE IT ON SELECTED DH11 

DATCNT ; COUNT IT 

PATLIM, DATCNT ;D0NE IT ENOUGH TIMES 

1$ ;BR IF NOT DO IT AGAIN 

DATCNT.SREGO ; SAVE ITERATION COUNT 

DATCNT ;INIT COUNTER 

#2$,$LPERR ;COME BACK TO 2$ 

21 ; REPORT DONE SPECIFIED NO. OF ITERATIONS 
#15,PATFLG .'CYCLING FOUR PATTERNS ? 

3$ ;BR IF NOT 

PC .-RETURN TO EXECUTE NEXT PATTERN 

3SWR ;LOCK ON THIS PATTERN ?? 

1$ ;8R IF YES 

EXPAT3 ;G0 ASK FOR NEW PATTERNS 

DATCNT ;IN1T ITERATION COUNTER 

PC.SUPATR ;G0 SET UP THE PATTERN 
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3404 


006762 


004767 


000524 






JSR 


3405 


006766 


005267 


013350 






INC 


3406 


006772 


026767 


013356 


013342 




CMP 


3407 


007000 


001366 








BNE 


3408 














34 09 


007002 


016767 


013334 


172152 




MOV 


3410 


007010 


005067 


01 3326 






CLR 


3411 


007014 


012767 


007024 


172066 




MOV 


3412 


007022 


104022 








ERROR 


3413 


007024 


022767 


00001 5 


013314 


2$: 


CMP 


3414 


007032 


001001 








BNE 


3415 


007034 


000207 








RTS 


3416 


007036 


105777 


1 72076 




3$: 


TST8 


3417 


007042 


100745 








BMI 


3418 


007044 


000167 


177174 






JMP 


3419 














3420 


007050 


012767 


000101 


013266 


DPATCR: 


MOV 


3421 


007056 


004767 


1 77376 






JSR 


3422 


007062 


012767 


000125 


013254 




MOV 


3423 


007070 


004767 


1 77462 






JSR 


3424 


007074 


012767 


000104 


013242 




MOV 


3425 


007102 


004767 


177546 






JSR 


3426 


007106 


012767 


000122 


01 ?230 




MOV 


3427 


007114 


004767 


177632 






JSR 


3428 


007120 


105777 


172014 






TSTB 


3429 


007124 


100751 








BMI 


3430 


007126 


000167 


177112 






JMP 


3431 














3432 


007132 


105067 


017064 




DPATS: 


CLRB 


3433 


007136 


005067 


013200 






CLR 


3434 


007142 


104401 








TYPE 


3435 


007144 


030042 








DPMSG7 


3436 


007146 


104410 






3$: 


RDCHR 


3437 


007150 


012600 








MOV 


3438 


007152 


122700 


000015 






CMP8 


3439 


007156 


001407 








BEO 


3440 


007160 


010067 


013164 






MOV 


3441 


007164 


110067 


017032 






MOVB 


3442 


007170 


104401 








TYPE 


3443 


007172 


026222 








EC2 


3444 


007174 


000764 








BR 


3445 














3446 


0071 76 


105767 


01 7020 




4$: 


TSTB 


3447 


007202 


001003 








BNE 


3448 


007204 


012767 


000015 


013136 




MOV 


3449 


007212 


004767 


012102 




1$: 


JSR 


3450 


00/216 


004767 


000270 






JSR 


3451 


007222 


005267 


013114 






INC 


3452 


007226 


026767 


013122 


013106 




CMP 


3453 


007234 


001366 








BNE 


3454 














3455 


007236 


016767 


013100 


171716 




MOV 


3456 


007244 


005067 


013072 






CLR 


3457 


007250 


012767 


007260 


171632 




MOV 


3458 


007256 


104023 








ERROR 


3459 


007260 


105777 


171654 




2$: 


TSTB 



N 6 



EE - DATA PATTERNS TESTS 



SEO 0078 



PCDHST2 
DATCNT 

PATLIM. DATCNT 
1$ 

DATCNT, $REGO 

DATCNT 

#2$.$LPERR 

22 

#15.PATFlG 

3$ 

PC 

aswR 
1$ 

EXPAT3 

#101,DATPAT 

PC.DPATA 

#125.DATPAT 

PCDPATU 

*104,DATPAT 

PC.DPATD 

0122.DATPAT 

PCDPATR 

aswR 

DPATCR 
EXPAT3 

EC2 

DATCNT 



<SP)*,RO 

A15.R0 

4$ 

RO,SJNGLE 
R0.EC2 



GO EXECUTE IT ON SELECTED DH11 
COUNT I'i 

DONE IT ENOUGH TIMES 
BR IF NOT DO IT AGAIN 

SAVE ITERATION COUNT 
INIT COUNTER 
COME BACK TO 2$ 

REPORT DONE SPECIFIED NO. OF ITERATIONS 
CYCLING FOUR PATTERNS ? 
BR IF NOT 

RETURN TO EXECUTE NEXT PATTERN 
LOCK ON THIS PATTERN ?? 
BR IF YES 

GO ASK FOR NEW PATTERNS 

FLAG 1/0 PATTERN 
CALL FOR 1/0 PATTERN 
FLAG UP COUNT PATTERN 
CALL FOR UP COUNT PATTERN 
FLAG DOWN COUNT PATTERN 
CALL FOR DOWN COUNT PATTERN 
FLAG RANDOM DATA PATTERN 
CALL FO RANDOM PATTERN 
LOCK ON ALL FOUR PATTERNS 
8R IF YES 

GO ASK FOR NEW PATTERN 

CLEAR THE ECHO BUFFER 
JNIT ITERATION COUNTER 

'TYPE SINGLE TEST CHAR" 
GET CHAR 

GET WHAT HE TYPED 
WAS IT A <CR> ?? 
BR IF YES 

SAVE IT FOR LOADING BUFFER 
ECHO IT ON TTY 



3$ 

EC2 
1$ 

#15, SINGLE 
PCSUPATS 
PCDHST2 
DATCNT 

PATLIM. DATCNT 
1$ 

DATCNT, $RE GO 
DATCNT 
#2$,$LPERR 
23 

aswR 



GO WAIT FOR TERMINATOR 

WAS SINGLE CHAR A <CR> ?? 
BR IF NOT A <CR> ONLY 
SET UP TO LOAD ALL <CR>'S 
GO SET IT UP IN BUFFER 
GO EXECUTE IT ON DH11 
COUNT ONE TIME 
DONE REQUIRED ITERATIONS ? 
BR IF NOT 

SAVE ITERATION COUNT 

INN ITERATION COUNTER 

COME BACK TO 2$ ALWAYS 

REPORT DONE SINGLE CHAR PATTERN 

LOCK ON THIS PATTERN ?? 



Q 7 

CZDHN-D MACY11 30A(1052) 27-DEC-78 15:31 PAGE 80 

C /DHND.P1 1 27-DEC-78 15:28 Sl«-PROGRAM THREE - DATA PATTERNS TESTS ^ 0079 

V.60 00726A 100752 BMI 1$ -8R IF YES 

£61 007266 000167 1 7675? JMP EXPAT 3 ;G0 ASK FOR NEW PATTERN 



CZDHN-D KACYr 30A(1052> 27-DEC-78 
CZDHND.P11 2/-DEC-78 15:28 



7/ A 7 
>lO J 


oo7?7? 




01 30£& 

V 1 -/VMM 




007P76 


10££01 












?/ ii 

J MOO 


007V1? 

VV' JVC 


01 ?70*i 
UlcivJ 








in/,/, -jn 

1 VMM 1 V 




J*»00 


007^10 


0"! 26A7 


01 ^03£ 






1 1*7^7 


01 3030 


^470 


007^?P 


1O£^0l 

1 vMMV 1 




^71 


0073P4 






JH ' c 








TV 

' J 


007326 


022767 

V/C C » U ' 


000003 

V/V/V/V/V/-/ 




v V » -/ 


0014P3 

Vv l**C J 












7 476 


007336 


020527 


03375^ 


3477 


007342 

V/V/ " 


001420 




V.78 










OC7344 


0227^7 


00001 2 

WW i c 




007352 

V/V/» -J J C- 


00101 1 

V/V/ 1 V/ 1 I 




3481 










007354 

V/V/ » -J J~ 


016700 

V I w' V/V/ 


013052 


3483 


007360 

V/V/ ' -'wv 


116725 


01276'- 




007364 

V/V ' 


116725 


01 3040 


5485 


007370 


005300 




3486 


007372 


001 374 




5487 


007374 


000744 




3488 








3489 


007376 


116725 


012746 


3490 


007402 


000741 




3491 








3492 


007404 


112767 


000136 


3493 


007412 


112767 


000103 


3494 


007420 


104401 




3495 


007422 


026224 




3496 


007424 


162705 


032 7 54 


3497 


007430 


005405 




3498 


007432 


010567 


012136 


3499 


007436 


004767 


000050 


3500 


007442 


005267 


01 2674 


3501 


007446 


026767 


012702 


3502 


007454 


001370 




3503 








3504 


007456 


016767 


012660 


3505 


007464 


005067 


012652 


3506 


007470 


012767 


007500 


3507 


007476 


104024 
105777 
100754 




3508 


007500 


171434 


3509 


007504 




3510 


007506 


000167 


176532 


3511 









15:31 PAGE 81 
SUB-PROGRAM 



DPAT8: 



C 7 

THREE - DATA PATTERNS TESTS 



SfO 0080 



1$: 



016700 
013014 

012776 



11$: 



2$: 



016612 3$: 
016605 



4$: 



012666 

171476 
171412 



5$: 



n r 


DATCNT 


•INIT ITERATION COUNTER 


TYPE 






DPMSGA 




;"TYPE IN BUFFER - TERMINATE WITH 


MOV 


#TBUF R5 


•POINT TO XMIT BUFFER 


RDCHR 




;GE T \ CHAR 


MOV 


(SP)*. SINGLE 


; SAVE IT 


movr 

i ivj v o 


SINGLE EC2 


•ECHO IT 


TYPE 






EC2 






CMP 


#3. SINGLE 


; WAS IT A C0NTR0L-C ?? 


BEQ 


3$ 


;BR IF YES 


CMP 


R5 #T8UF*513. 


.•BUFFER FULL ?? 


BEQ 


3$ 


;8R IF YES 


CMP 


#12. SINGLE 


;WAS IT A LINE FEED ?? 


BNE 


2$ 


;8R IF NOT 


MOV 


HLL8.R0 


;L0AD LF PLUS FILLERS 


M0VB 


SINGLE. (R5)+ 




M0V8 


F ILLA. (R5)+ 


;L0AD A FILLER CHAR 


DEC 


R0 




BNE 


11$ 


;8R TILL REQUIRED FILLERS LOADED 


BR 


1$ 


;G0 ASK FOR ANOTHER CHAR 


MOVB 


SINGLE. (R5)* 


.LOAD IT IN BUFFER 


BR 


1$ 


;G0 GET NEXT CHAR 


MOVB 


#136. EC3 


;ECH0 C0NTR0L-C 


MOVB 


#103,EC3*1 




TYPE 






EC3 






SUB 


#T8UF ,R5 


;SET UP CHAR COLWT 


NEG 


R5 


MOV 


R5.CHRCNT 




JSR 


PC.DHST2 


;G0 EXECUTE PATTERN 


INC 


DATCNT 




CMP 


PATLIM. DATCNT 


.DONE REQUIRED ITERATIONS 


BNE 


4$ 


;BR If NOT 


MOV 


DATCNT,$REG0 


; SAVE ITERATION COUNT 


CLR 


DATCNT 


;INIT ITERATION COUNTER 


MOV 


#5$.$LPERR 


.RETURN TO 5$ 


ERROR 


24 


.DONE REQUIRED ITERATIONS 


TSTB 


SSWR 


;L0CK ON THIS BUFFER ?? 


BMI 


4$ 


;BR IF YES 


JMP 


EXPAT3 


;G0 ASK FOR NEW PATTERN 
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3512 


007512 


004767 


005122 




DHST2: 


JSR 


3513 


007516 


056761 


012004 


000012 




BIS 


3514 


007524 


004767 


011670 






JSR 


3515 














3516 


007530 


012767 


000200 


012574 


PTUAIT: 


MOV 


3517 


007536 


005067 

\J \J J \S \J i 


012572 






CLR 


3518 


007542 


005767 


012034 




1$: 


TiT 


3519 


007546 


001023 








BNE 


3520 


007550 


004767 


007332 






JSR 


3521 


007554 


000772 








BR 


3522 














3523 


007556 


012777 


004000 


01 1 730 




MOV 


3524 


007564 


016767 


012552 


171370 




MOV 


3525 


007572 


016767 


012546 


1 71 364 




MOV 


3526 


007600 


012767 


007610 


1 71 302 




MOV 


3527 


007606 


104025 








ERROR 


3528 














3529 


00 7 610 


005726 






2$: 


TST 


3530 


007612 


000167 


1 76426 






JMP 


3531 














3532 


007616 


052711 


004000 




3$: 


BIS 


3533 


007622 


004767 


000740 






JSR 


3534 


007626 


000207 








RTS 


3535 














3536 















0 7 

HREE - DATA PATTERNS TESTS 



SFO 0081 



PC.DHSET1 

L INMSK.8AR(R1 ) 

PC.CHPS1 

#200, TIME A 
TIME8 
RDONE 
3$ 

PC.TJMEIT 
1$ 

#81 T1 1 .3DHADR 
DATCNT.SREGO 
DATPAT ,$REG1 
#2$,$LPERT 

25 

(SP) + 
EXPAT3 

#8JT11,(P1) 

PC.CKERDP 

PC 



;G0 SET UP THE DH1 1 
; ACTIVATE THE LINE 
;G0 CLEAR PSW 

; INIT TIMERS 

.-DONE ENTIRE PATTERN ? 
;8R IF YES 
;CALL THE TIMER 
.•EXECUTED IF NO TIMEOUT 

.'CLEAR THE DH11 

.-SAVE ITERATION COUNTER 

; SAVE PATTERN TYPE 

;SET UP ERROR RETURN 

.-DATA PATTERNS TEST TIMEOUT ERROR 

;FIX STACK SINCE WE ARE SKIPPING RTS 
;G0 ASK FOR NEW PATTERN 

.-CLEAR THE DH11 

;G0 CHECK DATA BUFFERS 

; RE TURN TO CONTROL ROUT INF 



C2DHN-D MAC V 1 1 30A<1052> 27-DEC-78 IS: 
C20HN0.P11 27-DEC-78 15:28 



31 PAGE 83 
SUB-PROGRAM 



E 7 

T HREE - DATA PATTERNS TESTS 



SEQ 0082 



3537 








3538 








3539 








3540 


007630 


032711 


002000 


3541 


007634 


001430 




3542 








3543 


007636 


011103 




3544 


007640 


004767 


011570 


3545 


007644 


012711 


00400C 


3546 


007650 


116704 


012270 


3547 


007654 


042703 


1 75760 


3548 


007660 


010102 




3549 


00/662 


004767 


005234 


3550 


007666 


004567 


005144 


3551 


007672 


022144 




3552 


007674 


022500 




3553 


007676 


012767 


007706 


3554 


007704 


104001 




3555 


007706 


022626 




3556 


007710 


005726 




3557 


007712 


000167 


1 76326 


3558 








3559 


007716 


011103 




3560 


007720 


100431 




3561 








3562 


007722 


004767 


011506 


3563 


007726 


012711 


004000 


3564 


007732 


012704 


100000 


3565 


007736 


1 56704 


012202 


3566 


007742 


042703 


077760 


3567 


007746 


010102 




3568 


007750 
007754 


004767 


005H6 


356° 


004567 


005056 


3570 


007760 


022144 




3571 


007762 


022662 




3572 


007764 


012767 


007774 


3573 


007772 


104002 




3574 


007774 


022626 




3575 


007776 


005726 




3576 


010000 


000167 


1 76240 


3577 








3578 


010004 


005761 


000012 


3579 


010010 


001430 




3580 








3581 


010012 


004767 


011416 


3582 


010016 


016103 


000012 


3583 


010022: 


012711 


004000 


3584 


010026 


005004 




3585 


010030 


010102 




3586 


010032 


06^702 


000012 


3587 


0I0036 


004767 


005060 


3588 


010042 


004567 


004770 


3589 


010046 


022144 




3590 


010050 


022742 




3591 


010052 


012767 


010062 


3592 


010060 


104003 





.-TRANSMITTER INTERRUPT SERVICE ROUTINE THREE 



TINT3: 



171204 



1$: 



2$: 



17H16 



3$: 



4$: 



171030 



BIT 
BEQ 

MOV 

JSR 

MOV 

M0V8 

BIC 

MOV 

JSR 

JSR 

LINE 

EMU44 

MOV 

ERROR 

CMP 

TST 

JMP 

MOV 
BMI 

JSR 

MOV 

MOV 

BIS8 

BIC 

MOV 

JSR 

JSR 

LINE 

EM2+54 

MOV 

ERROR 

CMP 

TST 

JMP 

TST 
BEQ 

JSR 

MOV 

MOV 

CLR 

MOV 

ADD 

JSR 

JSR 

LINE 

EM3*55 

MOV 

ERROR 



#8IT10. (fil) 
2$ 

(R1) ,R3 

PC.CHPS2 

#8IT11.(R1) 

LINE.R4 

»1 75760. R3 

R1.R2 

PC.SUER1 

R5.SUNUM 



m.SLPERR 
1 

(SP)*.(SP)* 
(SP) + 
EXPAT 3 

(R1),R3 
4$ 

PC.CHPS2 

*8IT11,(R1) 

#BIT15.R4 

LINE.R4 

#77760. R3 

R1.R2 

PC.SUER1 

R5,SUNUM 



#3$,SLPERR 

2 

(SPH.(SP)* 
(SPJ + 
EXPAT3 

8AR(R1) 
6$ 

PCCHPS2 
8AR(R1).R3 
*8JT11,(R1) 
R4 

R1 ,R2 
*8AR.R2 
PCSUER1 
R5,SUNUM 



#5$,$LPERR 
3 



NON EX MEM ERROR ?? 
8R IF NOT 

SAVE THE SCR 

GO LOCK OUT INTRS 

CLEAR OUT THE DH11 

SET UP THE S/8 DATA 

CLEAR OUT SUPERFLUOUS BITS 

SET UP REGADR 

GO SET UP ERROR INFO 

GO SET UP LINE NO. IN MSG 



SET UP THE ERROR LOOP RETURN 
NON EX MEM ERROR 
POP THE STACK 

FIX STACK SINCE NO RTS IS EXECUTED 
GO ASK FOR NEW PATTERN 

GET THE SCR REG CONTENTS 
BR IF XMIT DONE SET 

GO LOCK OUT INTRS 

CLEAR THE DH11 - FATAL ERROR 

SET UP S/B DATA 

CLEAR OUT SUPERFLUOUS BITS 

SET UP REGADR 

GC SET UP ERROR INFO 

GO SET UP LINE NO. IN MSG 



SET UP ERROR LOOP RETURN 
XMITTR FALSE INTERRUPT 
POP THE STACK 

FIX STACK SINCE NO RTS IS EXECUTED 
GO ASK FOR NEW PATTERN 

DID BAR BIT CLEAR ?? 
BR IF YES 

GO LOCK OUT INTRS 
GET THE WAS DATA 
CLEAR THE DH11 
SET UP S/8 DATA 
SET UP REGADR 

GO SET UP ERROR INFO 

GO SET UP LINE NO. IN MSG 



; SAVE T HE ERROR LOOP RETURN 

; BUFFER ACTIVE REG FARED TO CLEAR 



CZDHN-D IWY11 30A(1052) 27-DEC-78 
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F 7 

15:31 PAGE 84 

SJ8-PR0GRAM THREE - DATA PATTERNS TESTS 



SEti 0083 



3593 

3594 

3595 

3596 

3597 

3598 

3599 

3600 

3601 

3602 

3603 

3604 

3605 

3606 

3607 

3608 

3609 

3610 

3611 

3612 

3613 

3614 

3615 

3616 

3617 

3618 

3619 

3620 
3621 
3622 
3623 
3624 
3625 
3626 
3627 
3628 
3629 
1630 
3631 
3632 
3633 
3634 
3635 
3636 



010062 
010064 
010066 

010072 
010076 

010100 
010104 
010110 
010114 
010116 
010120 
010124 
010130 
C10134 
010136 
010140 
010146 
010150 
010152 
010154 

010160 
010164 
010170 
010172 
010176 
010200 

010202 
010206 
010210 
010214 
010220 
010224 
010226 
010230 
010236 
010240 
010242 
010244 

010250 



022626 






5$: 


CMP 


(SP)+, (SP)+ 


005726 








TST 


(SPW 


000167 


1 76152 






JMP 


EXPAT3 


005761 


0000 0 




6S: 


TST 


BCR(RD 


001430 








BEQ 


8$ 


004767 


011330 






JSR 


°C,CHPS2 


016103 


00001 0 






MOV 


BCRCR1) ,R3 


012711 


004000 






MOV 


#8IT11,(R1) 


005004 








CLR 


R4 


010102 








MOV 


R1,R2 


062702 


000010 






ADD 


*8CR. R2 


004767 


00W 7 2 






jSR 


PC.SUER1 


004567 


004702 






JSR 


R5,SUNUM 


022144 












023017 








EM4+52 




012767 


010150 


1 70742 




MOV 


#7$,$LPERR 


104004 








ERROR 


4 


022626 






7$: 


CMP 


ISP)*. ISP)* 


005726 








TST 


(SP)* 


000167 


176064 






JMP 


EXPAT 3 


0T103 


000006 




8$: 


MOV 


CAR(R1),R3 


0:6704 


011404 






MOV 


CHRCNT.R4 


005404 








NEG 


R4 


062704 


032754 






ADD 


#T8UF ,R4 


020304 








CM° 


R3.R4 


001423 








BEQ 


10$ 


004767 


011226 






JSR 


PC.CHPS2 


010102 








MOV 


Rl,R2 


062702 


000006 






ADD 


#CAR,R2 


004767 


004702 






JSR 


PCSUER1 


004567 


004612 






JSR 


R5.SUNUM 


022144 








t I MET 




023101 








EM5+57 


#9$.$LPFRR 


012767 


010240 


1 70652 




MOV 


104005 








ERROR 


5 


022626 






9$: 


CMP 


(SP)+,(SP)* 


005726 








TST 


(SP)* 


0CKT67 


175774 






JMP 


EXPAT 3 


000002 






10$: 


RTJ 





POP GOES THE STACK 

f\X STACK SINCE NO RTS IS EXECUTED 

GO ASK FOR NEW PATTERN 

;DID BYTE COUNT GO TO ZERO ?? 
;8R IF YES 

GO LOCK OUT INTRS 
GFT THE WAS DATA 
CLEAR THE DH11 
SET UP S/8 DATA 
SET UP REGADR 

;GU SET UP THE ERROR INFO 
;G0 SET UP LINE NO. IN MSG 



SET UP ERROR LOOP RETURN 

BYTE COUNT REG FAILED TO GO TO 000000 

POP GOES THfc STACK 

FIX STACK SINCE NO RTS IS EXECUTED 

GO ASK FOR NEW PATTERN 

;GET THE WAS DATA 
; SET UP S/8 DATA 



; WAS CAR CORRECT ?? 
;8R IF YES 

;G0 LOCK OUT INTRS 
.-SET UP REGADR 

;G0 SET JP EPROR INFO 

;G0 SET UP LINE NO. IN MSG 



SET UP THE ERROR RETURN 
CURRENT ADDRESS REG NOT CORRECT 
POP THE STACK 

FIX STACK SINCE NO RTS IS EXECUTED 
GO ASK FOR NEW PATTERN 
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SUB-PROGRAM 



G 7 

THREE - DATA PATTERNS TESTS 



3637 










.■RECEIVER INTERRUPT SERVICE R 


3638 
















3639 


010252 


032711 


040000 




RINT3: 


BI T 


#81 TK (R1) 


3640 


010256 


001427 








BEQ 


2$ 


3641 
















3642 


010260 


004767 
011103 


011 '50 






JSR 


Pf CHPS? 


3643 


010264 








MOV 


(R1 ) ,R3 


3644 


010266 


012711 


004000 






MOV 


*8I T 11 (R1) 


3645 


010272 


042703 


1 77760 






BIC 


#1 77760. R3 


3646 


010276 


116704 


011642 






M0V8 


LINE ,R4* 


3647 


010302 


004767 


004614 






JSR 


PC SUER1 


3648 


010306 


004567 


004524 






JSR 


R5 SUNUM 


3649 


010312 


022144 








LINE 


3650 


010314 


023150 








EM6+44 




3651 


010316 


012767 


010326 


1 70564 




MOV 


*1$.$LPERR 


3652 


010324 


104006 








ERROR 


6 


3653 
365 


010326 


022626 






1$: 


CMP 


(SP)* (SP)* 


010330 


005726 








TST 


(SP) + 


3655 


010332 


000167 


175706 






JMP 


EXPAT 3 


3656 
















3657 


010336 


105711 






2$: 


TST8 


(R1) 


3658 


010340 


100432 








BMI 


4$ 


3659 
















3660 


01034? 


004767 


011066 






JSR 


PC.CHPS2 


3661 


010346 


011103 








MOV 


(RD.R3 


3662 


010350 


042703 


1 77S60 






BIC 


#1 77560, R3 


3663 


010354 


012711 


004000 






MOV 


#8IT11.(R1) 


3664 


01036C 


012704 


000200 






MOV 


•8IT07.R4 


3665 


010364 


156704 


011554 






BIS8 


LINE.R4 


3666 


010370 


010102 








MOV 


R1 ,R2 


366' 


010372 


004767 


004524 






JSR 


PC.SUER1 


3668 


010376 


004567 


C04434 






JSR 


R5.SUNUM 


3669 


010402 


022144 








LINE 


3670 


010404 


023224 








EM7+51 




3671 


010406 


012767 


010416 


170474 




MOV 


*3$.$LPERR 


3672 


010414 


104007 








ERROR 


7 


3673 


010416 


022626 






5$: 


CMP 


(SP)*, (SP) + 


3674 


010420 


005726 








TST 


(SP) + 


3675 


010422 


000167 


175616 






JMP 


EXPAT3 


3676 
















3677 


010426 


C1o167 


000002 


1 70546 


4$: 


MOV 


NRC(R1).$TMP0 


3678 


010434 


100427 








BMI 


6$ 


3679 
















3680 


010436 


004767 


010772 






JSR 


PC.CHPS2 


3681 


010442 


012711 


004000 






MOV 


*8JT11.(R1) 


3682 


010446 


162767 


030474 


020014 




sue 


#R8UF,R8FPTR 


*683 


010454 


016702 


020010 






MOV 


RBFPTR,R2 


3684 


010460 


004767 


004432 






JSR 


PC5UER2 


3685 


010464 


004567 


004346 






JSR 


R5. SUNUM 


3686 


010470 


022144 








LINE 


3687 


010472 


023274 








EM10+45 




3688 


010474 


012767 


010504 


1 70406 




MOV 


#5S,$LPERR 


3689 


010502 


104010 








ERROR 


10 


3690 


010504 


022626 






5$: 


CMP 


<SP)*.CSP)* 


3691 


010506 


005726 








TST 


(SP)* 


3692 


010510 


000167 


175530 






JMP 


EXPAT3 



;SILO OVERFLOW ERROR 7 ? 
;8R IF NOT 

GO LOCK OUT INTRS 
GET THE WAS DATA 
NOW CLEAR THE DH11 
CLEAR JUNK 

;G0 SET UP ERROR INFO 

;G0 SET UP LINE NO. IN MSG 



SET UP ERROR LOOP RETURN 

SILO OVERFLOW - BAD,8AD,8AD 

POP GOES THE STACK 

FIX STACK SINCE NO RTS IS EXECUTED 

GO ASK FOR NEW PATTERN 

; CHAR AVAIL SET ?? 
;8R IF YES 

go lock out intrs 
get was data 
Clean it up 
now clear dh11 
set up s/8 data 

set up regadr 

go set u° error info 

go set up line no. in msg 



SET UP THE ERROR LOOP RETURN 
RECEIVER FALSE INTERRUPT 
POP GOES THE SP 

FIX STACK SINCE NO RTS IS EXECUTED 
GO ASK FOR NEW PATTERN 

;SAVE THE DATA RECEIVED 
;8R IF IT WAS VALID DATA 

GO LOCK OUT INTRS 

NOW CLEAR THE DHll 

WHICH CHAR WAS IT ?? 

SAVE CHAR NUMBER 

GO SET UP ERROR INFO 

GO SET UP LINE NO. IN MSG 



SET UP ERROR RETURN 

RECEIVED INVALID DAT* 

POP GOES THE STACK 

FIX STACK SINCE NO RTS IS EXECUTED 

GO ASK FOR NEW PATTERN 
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H 7 

THREE - DATA PATTERNS TESTS 



SECi 0085 



3693 
















36% 


010514 


016777 


1 70462 


017746 


6$: 


MOV 


$TMP0.3RBFPTR 


3695 


010522 


062767 


000001 


01 7740 




ADD 


#1,R8FPTR 


36% 


010530 


026767 


011050 


017732 




CMP 


R8FEND.R8FPTR 


3697 


010536 


001407 








BEQ 


7$ 


3698 


010540 


062767 


000001 


Q-\7722 




ADD 


#1.R8FPTR 


3699 


010546 


026767 


011032 


017714 




CMP 


R8FEND.RBFPTR 


3700 


010554 


001003 








BNE 


8$ 


3701 


010556 


052767 


000001 


011016 


71: 


BIS 


#1.RD0NE 


3702 


010564 


000C02 






8$: 


RTI 





STORE CHAR IN THE BUFFER 
UPDATE THE POINTER 
END OF BUFFER ?? 
BR IF YES 



BR IF NOT DONE 

SET SOFTWARE DONE FLAG 

RETURN TO WAIT LOOP 
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SUB-PROGRAM 



I 7 

THREE - DATA PATTERNS TESTS 



SfO 0086 



7 7A7 










i'tju 










77Af 

jrUj 








'J I ' O ' H 


5 '06 


Ai nci^ 

0 10566 


A1 1~?(J7 


A7A/ 7L 

V JUH ' H 


77A7 
if Of 


ai AC 7/ 
0 \Qifh 


A1 07i? 


A7j7C/ 


U I ' Of u 


77aq 










7 7AO 

if Uv 


A1 AXA"3 

UIU6u J 


1 1 770V 


oi 7t-t.L 




771 a 

" r 1 U 


U IUOU6 


AAA 7 A/ 

UUU5U 1 * 






771 7 


ai nti n 
U1U6 ill 








771 0 

if Id 


J 

U1U6 '£ 


1 c<.7n/ 

I JO' Uh 


P1 1 

U I I jco 




771 7 


A1 fu 1 1, 
U 1 UO ! O 


AAA7A/ 

UUUjUh 




« 


771 / 
if I 4 


ni AX OA 


AC-J7A/ 


I uuuuu 




771 C. 
if I J 


u i UOcm 


UhO' U*« 


UN J JC 




771 f. 
if IO 


U I UOjU 


ai 77f)7 
U 1 f f Uj 


AI 7f*XL 
U ' ' O J** 




771 7 


m oa*z. 
U I UOj** 


C1P0X04 






77111 
if 1 O 


U I UO JO 


Om API 
UU l*tc J 






771 Q 

if I T 










77 30 


U I uo*»u 


01 07A7 
U I U jO ' 


1 70iX^L 
I ' Ujjh 




3' t I 


U 1 UDhs 


0101AA 
U 1 u i **o 






if CC 


01 

U I uo*»o 


01 A701 
U I O f U I 


01 7^.1 f> 
U ■ ' o ■ o 




i' ci 


U I UO jc 


01 A70P 

U I O ' Ut 


01 7A1£ 




X7?L 
J' c 4 * 


AlAJLCiL 
U i UO JO 


010POO 






Jf CJ 


oioaaO 

U 1 uoou 


1 tO 700 






7.7PA 

J( CO 


oioaaa 
U I uoo*« 


OOA7A7 

UU*» ' O ' 


004??^ 




X707 
Jf cf 


oiOA7n 

U I UO' u 


004SA7 
uvn JD' 


00414? 




*7PR 

J' CO 


A1 

U 1 UO' *♦ 


0PP14A 








oio/»7A 

U I UO' O 


OXL27 




170P0P 


<7XO 

Jf JU 


a 10700 
U I u'UU 


01 P7A7 


010710 

VJ 1 \J < IV/ 




01070A 
U IU» UO 


10A01 1 

1 VJ**v I 1 






77* P 












010710 
U I \lt I u 


01 PA01 
U I cOU I 






3 1 j*« 












01071 P 
U I Uf It 


005 Pn 7 


017S54 




Jf JO 


01071 A 

U I U ' lu 


0AP7n7 
\J\JC f \Jf 


UvUvU 1 


01 7544 


3737 


010724 


026767 


01G654 


017536 


3738 


010732 


001407 






3739 


010734 


062767 


000001 


017526 


3740 


010742 


026767 


010636 


017520 


3741 


010750 


001314 






374? 










3743 


010752 


000207 






3744 











; THI b ROUTINE IS CALLED TO CHECK THE RECEIVED DATA AND REPORT ALL ERRORS 
;F0R THE DATA PATTERNS TESTS 



CKERDP: MOV 
MOV 



1$: 



2$: 
3$: 



4$: 



M0V8 

SWAB 

CLR8 

BIS8 

SWAB 

BIS 

BIC 

MOV 

CMP 

BEO 

MOV 
MOV 
MOV 
MOV 
MOV 

sue 

JSR 

JSR 

LINE 

EM1 1 +23 

MOV 

ERROR 

MOV 

INC 
ADD 
CMP 
BEQ 
ADD 
CMP 
8NE 

RTS 



#R8UF .R8FPTR 
#T8Uf .T8FPTR 

ST8FPTR.R4 

R4 

R4 

LINE.R4 
R4 

#8IT15.R4 

CLMSK.R4 

aR8FPTR,R3 

R3.R4 

5$ 

R3.$TMP7 

RI.-(SP) 

R8FPTR.R1 

T8FPTR.R2 

R2,R0 

* T8UF.R0 

PC.SUER2 

65.SUNUM 



#2$.tLPERR 
11 

(SP)*.R1 

T8EPTR 
#1.R8fPTR 
R8f END.RBFPTR 
4$ 

#1,R8FPTR 

R8FEND,R8FPTR 

U 

PC 



;SET UP POINTERS 



;GET THE S/8 DATA 

;PUT LINE NO. IN HIGH BYTE 



AND FINALLY THE VALID DATA BI T 
MASK OFF BITS NOT XMITTED 
GET THE WAS DATA 

WAS = S/8 ????? 
8R IF YES 

SAVE THE WAS DATA 

SAVE THE DEVADR 

GET THE S8ADR 

GET THE WASADR 

GET XMIT BUFFER ADDR 

GENERATE CHAR # 

GO SET UP ERROR INFO 

GO PUT LINE NO. IN MSG 



SET UP ERROR RE TURN 

DATA COMPARE ERROR OR PARI TY. FRAMING 
OR OVERRUN 
RESTORE THE DEVADR 

UPDATE POINTERS 

COMPARED ALL CHARS ?? 
8R IF YES 
UPDATE IT AGAIN 
DONE YET ? 
8R IF NOT 

RETURN TO WAIT LOOP 



.S8TTL END OF PASS ROUTINE 
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3~45 
3746 
3747 
3748 
3749 
3^50 
3751 
3752 

3753 010754 SEOP: 

3754 010754 

3755 010756 005067 170120 

3756 010762 005067 170234 

3757 010766 005267 170246 

3758 010772 042767 100000 170240 

3759 011000 

3760 011002 

3761 011004 

3762 011006 

3763 011010 
3 7 6* 0H012 

3765 011014 104401 011061 

3766 011020 016746 170214 

3767 011024 

3768 011026 104401 011056 

3769 011032 013700 000042 

3770 011036 

3771 011040 

3772 011042 

3773 011044 

3774 011046 

3775 011050 

3776 011052 

3777 011052 

3778 011054 

3779 011056 377 377 000 

3780 011061 015 042412 042116 
3731 011066 050040 051501 020123 
3782 011074 
3783 
3784 
3785 
3786 
3787 
3788 
3789 
3790 
3791 
3792 
3793 
3794 
3795 

3796 011076 

3797 011076 104407 

3798 011100 005067 011040 

3799 011104 032777 040000 170026 

3800 011112 001104 



J 7 



SEO jJ8f 



•INCREMENT THE PASS NUMBER (SPASS) 

•TYPE ' tND PASS ttXXXXX" (WHERE XXXXX IS A DECIMAL NUMBER, 
•IF THERE S A MONITOR GO TO IT 
•IF THERE ISN'T JUMP TO START2 



000004 
005067 
005067 
005267 
042767 
005327 
000001 
003022 
012737 
000001 
011002 
104401 
016746 
104405 
104401 
013700 
001405 
000005 
004710 
000240 
000240 
000240 

000137 
002306 
377 
015 
050040 
000043 





SCOPE 








CLR 


$TSTNM 


;;ZERO THE TEST NUMBER 




CLR 


STIMES 


;;ZER0 THE NUMBER OF ITERATIONS 




INC 


SPASS 


;; INCREMENT THE PASS NUMBER 
; .-DON'T ALLOW A NEG. NUMBER 




BIC 


#1 00000 ,$PASS 




DEC 


(PC ) ♦ 


; ;LO0P? 


tEOPCT: 


.WORD 


1 






BGT 


SDOAGN 


;;>tS 

;. -RESTORE COUNTER 




MOV 


(PO + .acPO* 




lipid h 
SEOPCT 


i 
i 






TYPE 


,$ENDMG 


;;TYPE 'tND PASS #" 




MOV 


SPASS. -(SP) 


.-.-SAVE SPASS FOR TYPEOUT 




TYPDS 


;;GO TYPE — DECIMAL ASCII WITH SIGN 




TYPE 


,$ENULL 


;;TYPE A NULL CHARACTER 


SGET42: 


MOV 


W42.R0 


;;GET MONITOR ADDRESS 




BEQ 


SDOAGN 


;;8RANCH IF NO MONITOR 




RESET 




; ;CLEAR THE WORLD 


SENDAD : 


JSR 
NOP 
NOP 
NOP 


PC.(RO) 


;;G0 TO MONITOR 
.-.SAVE ROOM 
;;FOR 
;;ACT11 


SDOAGN: 










JMP 


3(PC)+ 


; ; RE TURN 


SRTNAD: 


.WORD 


START2 




SENULL : 


.BYTE 


-1.-1,0 


;;NULL CHARACTER STRING 



SENDMG 



iASCIZ <15><12VEND pass'*/ 



.S8TTL SCOPE HANDLER ROUTINE 

•»»*»*»********»***»***************»**«*»****»»*»•»%»•*•**«»•*** 

•THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. II WILL INCREMENT 
•AND LOAD THE TEST NUMBER (STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0» 
•AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<1 5 :08> 
•THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE : 
*SW14=1 LOOP ON TEST 

•SW11=1 INHIBIT ITERATIONS 

»SW09=1 LOOP ON ERROR 

•CALL 

• SCOPE ;;SCOPE=IOT 



SSCOPE : 

CKSWR 
CLR 

1$: BIT 
BNE 



LINE 

#8JT14,3SWR 
SOVER 



; TEST FOR CHANGE IN SOF T-SWR 
INI T LINE COUNTER 
.-LOOP ON PRESENT TEST? 
;YES IF SW14=1 
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3801 

3802 

3803 

3804 

3805 

3806 

3807 

3808 

3809 

3810 

3811 

3812 

3813 

3814 

3815 

5816 

3817 

3818 

3819 

3820 

3821 

3822 

3823 

3824 

3825 

3826 

^27 

3828 

3829 

3830 

3831 

3832 

3833 

3834 

3835 

3856 

3837 

3838 

3839 

3840 

3841 

3842 

3843 

3844 

3845 

3846 

3847 

3848 

38A9 

3850 

5851 

3852 

3853 

3854 

3855 

3856 



011114 000416 



011 1 16 
011122 
011130 
011134 
011140 
011142 
011144 
011150 
011152 
011152 
011156 
011160 
011166 
01 1 1 70 
011176 
011200 
011206 
01 1210 
011214 
011220 
011222 
011230 
011232 
011236 
011240 
011244 
011252 
011254 
011262 
011270 
011274 
011302 
011306 
011312 
011316 
011324 
011332 
011336 
011340 



15:31 PAGE 89 
SCOPE HANDLER 

;**#**START OF 
SXTSTR: BR 



K 7 



ROUTINE 



SEQ 0088 



CODE FOR THE XOR 
6$ 



TESTER***** 

;;JF RUNNING ON THE "XOR" TESTER CHANGE 
;;THIS INSTRUCTION TO A "NOP" (NOP=240) 
;;SAVE THE CONTENTS OF THE ERROR VEC T 0R 
;;SET FOR TIMEOUT 
.-.-TIME OUT ON XOR? 
; .-RESTORE THE ERROR VECTOR 
;;G0 TO THE NEXT TEST 
;; CLEAR THE STACK AFTER A TIME OUT 
; .-RESTORE T HE ERROR VECTOR 
.-.-LOOP ON THE PRESENT TEST 

TESTER***** 
;;HAS AN ERROR OCCURRED? 
;;8R IF NO 

;;MAX. FRRORS FOR THIS TEST OCCURRED? 
;;8R IF NO 
;;LOOP ON ERROR? 
;;8R IF NO 

;;SET LOOP ADDRESS TO LAST SCOPE 
; ; ZERO THE ERROR FLAG 

; .'CLEAR THE NUMBER OF ITERATIONS TO MAKE 
; .-ESCAPE TO THE NEXT TEST 
; ; INHIBIT ITERATIONS? 
* *BR IF YES 

;;IF FIRST PASS OF PROGRAM 
INHIBIT ITERATIONS 
;; INCREMENT ITERATION COUNT 
; .-CHECK THE NUMBER OF ITERATIONS MADE 
;;8R IF MORE ITERATION REQUIRED 
; .-REINITIALIZE THE ITERATION COUNTER 
;;SET NUMBER OF ITERATIONS TO DO 
.-.COUNT TEST NUMBERS 
;;SET TEST NUMBER IN APT MAILBOX 
.-.SAVE SCOPE LOOP ADDRESS 
;;SAVE ERROR LOOP ADDRESS 
.-.CLEAR THE ESCAPE FROM ERROR ADDRESS 
.-.-ONLY ALLOW ONE CD ERROR ON NEXT TEST 
.-.DISPLAY TEST NUMBER 
; ; FUDGE RETURN ADDRESS 
..-FIXES PS 

.-.-MAX. NUMBER OF ITERATIONS 



• ■ *************************************** ************************ 
••THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT. 
.-•SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
;*AND GO TO SERRTYP ON ERROR 

; * THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE : 



01 3746 


000004 






MOV 


oMrtHHvt C ,-( br ; 
*3»,oMrtnKVbC 


012737 


01 1 142 


000004 




MOV 


005737 


1 77060 






TST 


~\ j.1 77A£A 
aWn f t UOU 


012637 


000004 






MOV 


/rn \ j 2#CDDl/Cr 

I ir -> ♦ , mfft HHVt I 


000453 








BR 


ccv/i An 


022626 






5$: 


CMP 






AAAAA/ 






MOV 


000415 








BR 


7* 

f » 

LUUt rUK IMC AUn 






6$:;*****END OF 


\0bfOf 


1 i 771C 

\or fcj 




3* . 
C9. 




tCDT I ft 
»tKr LU 


AA 1 / "51 








pen 
DC U 




\do (of 


1 A7771 
1 Of f J 1 


1 A771 "s 
1 Of f 1 J 




r unn 

Lnro 




1U1U1 3 








DU I 

On J 




A1T777 


AA 1 AAA 
UUlUUU 


1 7 // 5 
I Of f *»c 






«o i mo acuB 
ffoi i uy.oiown 


aa 1 / a/ 








RPO 
Or W 




U 1 Or Of 


1 A77AZ. 
I O f • U*» 


1 A7700 
lOf f UU 


f » . 


MOU 

r*iu v 




UUU*»mO 








RB 

On 




1 UlJUOf 


1 A 7AA 7 
lOf OOf 




H9 . 




CPRP I ft 


Utoubf 


I f UUUc 








IT TMPC 


UUU*» 1 J 








RP 


I * 


A7"3777 


AA/ AAA 

UUhUUU 


I Of f I u 


3$; 


BIT 


ffOl J 1 1 .OfoWK 


001011 








BNE 


I 9 


Wjf Of 


1 70.0.0.5 

I f UUUc 






TST 




UU 1 *»UO 








BEO 


1* 


aacoa7 

UUJtOf 


I O'OhU 






INC 


91 v»» 1 


VCOrOf 


\Ot IJC 


I Of Die 




CMP 




UUcUt*» 








BGE 




r>1 P7A7 
U I Cf Of 


000001 

UUUUU 1 


1 A. 7^55 
I Of Dec 


1$: 


MOV 




Al A7A7 
U I Of Of 


oooo<;5 


I Of f Jc 




MOV 










SSVLAD : 


INC8 


ITSTNM 


116767 


167602 


167734 




M0V8 


$TSTNM.$TESTN 


011667 
011667 


167600 






MOV 


(SP) ,$LPADR 


167576 






MOV 


(SP) ,$LPERR 


005067 


167706 






CLR 


$E SCAPE 


112767 


000001 


167571 




M0V8 


*1.$ERMAX 


016777 


167552 


167610 


SOVER: 


MOV 


$TSTNM,aDISPLAY 


016716 


167550 






MOV 


$LPADR.(SP; 


000002 








RTI 




000010 






SMXCNT: 


10 










. SBTTL 


ERROR HANDLER ROUTINE 



;*SW15=1 
;*SW13=1 
; *SW09=1 
.-•CALL 



HALT ON ERROR 
INHIBIT ERROR TYPE0UTS 
LOOP ON ERROR 



ERROR N 



;;ERR0R=EMT AND N= ERROR ITEM NUMBER 



011342 



SERROR: 
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ERROR HANDLER 



L 7 



ROUTINE 



SfcO 0089 



3857 

3858 

3859 

3860 

3861 

3862 

3863 

5864 

3865 

3866 

3867 

3868 

3869 

3870 

3871 

3872 

3873 

3874 

3875 

3876 

3877 

3878 

3879 

3880 

3881 

3882 

3883 

3884 

3885 

3886 

3887 

3888 

3889 

3890 

3891 

3892 

3893 

3894 

3895 

3896 

3897 

3898 

3899 

3900 

3901 

3902 

3903 

3904 

3905 

3906 

5907 

3908 

3909 

3910 

3911 

3912 



01 1 342 
011344 
011350 
011352 
011360 
011364 
01 1 370 
011376 
011404 
011412 
01 HK 
011420 
011424 
011424 
011432 
011434 
011442 
011446 
011447 
011450 
011452 
011456 
011460 
011462 
011464 
011472 
011474 
011500 
011504 
011506 
011512 
011512 



011514 
011514 
011520 
01 1 522 
011524 
011530 



104407 
105267 
001775 
016777 
00S267 
011667 
162767 
117767 
032777 
001004 
004767 
104401 

122767 
001 007 
116767 
004767 
000 
000 
000777 
005777 
100002 
000000 
104407 
032777 
001402 
016716 
005767 
001402 
016716 

000002 



104401 
010046 
005000 
1 53700 
001004 



167533 

167524 
167526 
167526 
000002 
167514 
020000 

000074 
001227 

000001 

167454 
001 1 74 



167462 



16/410 
167520 

167512 



001227 



001114 



011532 016746 167360 



011536 
011540 
011542 
011544 
011546 
011550 
011552 
011556 



104402 
000445 
005300 
006300 
006300 
006300 
062700 
012067 



001326 
000004 



7$: 



167562 



167520 
167510 
167526 



167620 
000004 



20$: 



21$; 

22$: 
2$: 



001000 167446 3$: 



4$: 



5$: 



.S8TTL 



CKSWR 

INC8 

BEO 

MOV 

INC 

MOV 

SUB 

MOVB 

BIT 

BNE 

JSR 

TVPE 

CMP8 

BNE 

MOVB 

JSR 

.BYTE 

.BYTE 

BR 

TST 

BPL 

HALT 

CKSWR 

BIT 

BEO 

MOV 

TST 

BEO 

MOV 

RTJ 
ERROR 



$ERFLG 
7$ 

$TSTNM.3DI SPLAY 

$ERTTL 

(SP>.$ERRPC 

#2.$ERRPC 

3$ERRPC.$ ITEMS 

*8IT13,aSWR 

20$ 

PC.$ERRTYP 
,$CRLF 

*APTENV.$ENV 
2$ 

$ITEM3.21$ 
PC,$ATY4 

0 
0 

22$ 

aswR 

3$ 



*8IT09,dSWR 
4$ 

$LPERR.(SP> 
$E SCAPE 
5$ 

$ESCAPE,(SP) 



;;TEST FOR CHANGE IN SOFT-SWR 

;;SET THE ERROR FLAG 

; ;D0N*T LET THE FLAG GO TO 2FR0 

; .'DISPLAY TEST NUMBER AND ERROR FLAG 

;;INC THE ERROR COUNT 

;;GET ADDRESS OF ERROR INSTRUCTION 

; ;STRIP AND SAVE THE ERROR ITEM CODE 

;;SKIP TYPE OUT IF SET 

.-.-SKIP TYPEOUTS 

;;G0 TO USER ERROR ROUTINE 



; ."RUNNING IN APT MODE 

;. -NO. SKIP APT ERROR REPORT 

;;SET ITEM NUMBER AS ERROR NUMBER 

;;REPORT FATAL ERROR TO APT 



:;APT ERROR LOOP 

: ; HAL T ON ERROR 

;;SKJP IF CONTINUE 

; ;HALT ON ERROR! 

;;TEST FOR CHANGE IN SOFT-SWR 

;;L0OP ON ERROR SWITCH SET? 

r;8R IF NO 

; .-FUDGE RETURN FOR LOOPING 
; .-CHECK FOR AN ESCAPE ADDRESS 
;;8R IF NONE 

; .-FUDGE RETURN ADDRESS FOR ESCAPE 



MESSAGE TYPEOUT ROUTINE 



.************»*»****»******••*»**•*******•*•*••*****•*•***»*•*•* 
•THIS ROUTINE USES THE "ITEM CONTROL BYTE" ($ITEMB) TO DETERMINE WHICH 
•ERROR IS TO BE REPORTED. IT THEN OBTAINS. FROM THE ' ERROR TABLE" ($ERRTB) . 
•AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 



$ERRTYP: 



IS: 



TYPE ,SCRLF 

MOV RO.-CSP) 

CLR RO 

BIS8 a#SITEMB,RO 

BNE IS 

MOV SERRPC.-(SP) 
TYPOC 

BR 10$ 

DEC RO 

ASL RO 

ASL RO 

ASL RO 

ADD #SERRT8.R0 

MOV (R0)*,2S 



; ; "CARRIAGE RETURN" & "LINE FEED" 
- 'SAVE RO 

;;PICKUP THE ITEM INDEX 

;;IF ITEM NUMBER IS ZERO. JUST 
;;TYPE THE PC OF THE ERROR 
;;SAVE SERRPC FOR TYPEOUT 
; .ERROR ADDRESS 

;;G0 TYPE — OCTAL ASCII (ALL DIGITS) 
;;GET OUT 

; .-ADJUST THE INDEX SO THAT IT WILL 
WORK FOR THE ERROR TABLE 



;;FORM TABLE POINTER 

; ; PICKUP ' tRROR MESSACE" POINTER 
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ERROR MESSAGE 



M 7 



TYPEOUT ROUTINE 



SFQ 0090 



3913 

3914 

3915 

3916 

3917 

3918 

3919 

3920 

3921 

3922 

3923 

3924 

3925 

3926 

3927 

3928 

3929 

3930 

3931 

3932 

3933 

3934 

3935 

3936 

3937 

3938 

3939 

3940 

3941 

3942 

3943 

3944 

3945 

3946 

3947 

3948 

3949 

3950 

3951 

3952 

3953 

3954 

3955 

3956 

3957 

3958 

3959 

3960 

3961 

3962 

3963 

3964 

3965 

3966 

3967 

3968 



011562 
011564 
011566 
011570 
011574 
011600 
011602 
011604 
011606 
011612 
011614 
011616 
011620 
011622 
011624 
011626 
011630 
011632 
011634 
011634 
011636 
011640 
011642 
011644 
011650 

011652 
011654 
011656 
011662 
011664 



001404 
104401 
000000 
104401 
012067 
001404 
104401 
000000 
104401 
010146 
012001 
001415 
012000 
105720 
001003 
013146 
104402 
000402 

013146 
104405 
005711 
001403 
104401 
000764 

012601 
012600 
104401 
000207 
020040 
011670 



00K27 
000004 



001227 



011664 

001227 
000 



;;SKIP TYPEOUT IF NO POINTER 
;;TYPE THE ' ERROR MESSAGE" 
;;' ERROR MESSAGE" POINTER GOES HERE 
; .-"CARRIAGE RETURN" & 'UNE FEED" 
; .-PICKUP 'DATA HEADER" POINTER 
;;SKIP TYPEOUT IF 0 
;;TYPE THE ' DATA HEADER" 
; ; ' DATA HEADER" POINTER GOES HERE 
; .-"CARRIAGE RETURN" & "LINE FEED" 
;;SAVE R1 

; .-PICKUP ' DATA TABLE" POINTER 
;;8R IF NO DATA TO BE TYPED 
;; PICKUP 'DATA FORMAT" POINTER 
;;'t>CTAL" OR 'DECIMAL" 
;;8R IF DECIMAL 
.-.SAVE a(R1)+ FOR TYPEOUT 
;;G0 TYPE— OCTAL ASCII (ALL DIGITS) 

;;SAVE 8(RD* FOR TYPEOUT 
;;G0 TYPE — DECIMAL ASCII WITH SIGN 
;;IS THERE ANOTHER NUMBER? 
;;8P IF NO 
;;TYPE TW0(2) SPACES 
.'.LOOP 

; .RESTORE R1 
■ -RESTORE RO 

■•'TARRIAGE RETURN" I 'UNE FEED" 
;; RE TURN 
;;Ty0(2) SPACES 

.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 

*************************************************************** 

THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
♦OCTAL (ASCII) NUMBER AND TYPE IT. _ 

*$TYPOS ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 

•CALL " 

" MOV NUM.- (SP) ; .NUMBER TO BE TYPED 

* TYPOS ;.CALL FOR TYPEOUT 

.8YTE N ;;N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 

* .BYTE M ;;M--1 OR 0 

;;1=TYPE LEADING ZEROS 

* ;;0=SUPPRESS LEADING ZEROS 

•STYPON ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

*$TYPOS OR $ TYPOC 
"CALL " 

* ' MOV NUM.-(SP) ; .'NUMBER TO BE TYPED 

TYPON ;;CALL FOR TYPEOUT 

*$TYPOC ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

*CALL ' 

MOV NUM.-(SP) ;. -NUMBER TO BE TYPED 
TYPOC ;;CALL FOR TYPEOUT 





BEQ 


3$ 




TYPE 




2$: 


.WORD 


0 


TYPE 


.SCRLF 


3$: 


MOV 


(R0H.4S 




BEQ 


5$ 




TYPE 




4$: 


.WORD 


0 




TYPE 


.SCRLF 


5$: 


MOV 


R1.-CSP) 




MOV 


(R0)*.R1 




BEQ 


9$ 




MOV 


(RO)*.RO 


6$: 


TST8 


(R0) + 




BNE 


7$ 




MOV 


3(R1)+.-(SP) 




TYPOC 






op 


8$ 


7$: 








MOV 


9(R1)+.-(SP) 




TYPDS 




8$: 


TST 


(R1) 




BEQ 


9$ 




TYPE 


,11$ 




BR 


6$ 


9$: 


MOV 


(SP)+.R1 


10$: 


MOV 


(SP)+,RO 




TYPE 


,$CRLF 




RTS 


PC 


11$: 


.ASCIZ 


/ / 




.EVEN 





CZDHN-D MACY11 30A(1052> P7-DEC-78 15 
CZDHND.P11 27-DEC-78 15:28 



:V PAGE 92 
BINARY TO OCTAL 



N 7 

(ASCII) AND TYPE 



SEO 0091 



3969 










3970 


011670 


01 7646 


000000 




3971 


011674 


116667 


000001 


000211 


3972 


011702 


112667 


000207 




3973 


01 1 706 


062716 


000002 




3974 


011712 


000406 






3975 


011714 


1 1 2 7 67 


000001 


000171 


3976 


011722 


112767 


000006 


000165 


3977 


01 1 730 


112767 


000005 


000154 


3978 


011736 


010346 






3979 


01 1 740 


01 0446 






3980 


01 1 742 


010546 






3981 


01 1 744 


116704 


000145 




3982 


01 1 750 


005404 






3983 


011752 


062704 


000006 




3984 


01 1 756 


110467 


000132 




3985 


01 1 762 


116704 


000125 




3986 


011766 


016605 


000012 




3987 


011772 


005003 






3988 


01 1 774 


OC6105 






3989 


01 1 776 


000404 






3990 


012000 


006105 






3991 


012002 


006105 






3992 


012004 


006105 






3993 


012006 


010503 






3994 


012010 


006103 






3995 


012012 


105367 


000076 




3996 


012016 


100016 






3997 


012020 


042703 


177770 




3998 


012024 


001002 






3999 


012026 


005704 






4000 


012030 


001403 






4001 


012032 


005204 






4002 


012034 


052703 


000060 




4003 


012040 


052703 


000040 




4004 


012044 


110367 


000040 




4005 


012050 


104401 


012110 




4006 


012054 


105367 


000032 




4007 


012060 


003347 






4008 


012062 


002402 






4009 


012064 


005204 






4010 


012066 


000744 






4011 


012070 


012605 






4012 


012072 


012604 






4013 


012074 


012603 






4014 


012076 


016666 


000002 


000004 


4015 


012104 


012616 






4016 


012106 


000002 






4017 


012110 


000 






< 4018 


012111 


000 






4019 


012112 


000 






4020 


012113 


000 






4021 


012114 


000000 






4022 










4023 










4024 











$ TYPOS . ■ 

STYPOC: 
STYPON: 



1$: 
2$: 

3$: 



4$: 
5$: 

7$: 



6$: 



8$: 



SOCNT : 
$0 F ILL : 
SOMODE ; 
. S8TTL 



MOV 

MOVB 

M0V8 

ADD 

BR 

MOVB 

MOVB 

MOVB 

MOV 

MOV 

MOV 

MOVB 

NEG 

ADD 

MOVB 

MOVB 

MOV 

CLR 

ROL 

BR 

ROL 

ROL 

ROL 

MOV 

ROL 

DECS 

BPL 

BIC 

BNE 

TST 

BEO 

INC 

BIS 

BIS 

MOVB 

TYPE 

DECS 

BGT 

BLT 

INC 

BR 

MOV 

MOV 

MOV 

MOV 

MOV 

RTI 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.WORD 

CONVERT 



a(SP),-(SP) 
1 (SP).$OFILL 
(SP)+,$0M0DE+1 
#2.<SP) 
STYPON 
#1.$0FILL 
*6,$0M0DE+1 
#5.$0CNT 
R3.-(SP) 
R4.-(SP) 
R5.-(SP) 
S0M0DE+1 ,R4 
R4 

#6.R4 
R4.S0M0DE 
S0FJLL.R4 
12(SP),R5 ' 
R3 
R5 
3$ 
R5 
R5 
R5 

R5.R3 
R3 

SOMODE 
7$ 

#177770.R3 
4$ 
R4 
5$ 
R4 

#'0.R3 
M' ,R3 
R3.8$ 
,8$ 
tOCNT 
2$ 
6$ 
R4 
2$ 

(SPH.R5 
(SP)+,R4 
(SPH.R3 
2(SP;.4(SP) 
(SP)+,(SP) 

0 
0 
0 
0 
0 

BINARY TO DECIMAL AND TYPE ROUTINE 



;; PICKUP THE MODE 
;;LOAD ZERO FILL SWITCH 
; .-NUMBER OF DIGITS TO TYPE 
; .-ADJUST RETURN ADDRESS 

;;SET THE ZERO FILL SWITCH 
;;SET FOR SIX(6) DIGITS 
;;SET THE ITERATION COUNT 
;;SAVE R3 
;;SAVE R4 
• - SAVE R5 

; ;GET THE NUMBER OF DIGITS TO TYPE 

;; SUBTRACT IT FOR MAX. ALLOWED 
;;SAVE IT FOR USE 
;;GET THE ZERO FILL SWITCH 
; ; PICKUP THE INPUT NUMBER 
; ; CLEAR THE OUTPUT WORD 
; .-ROTATE MSB INTO "C" 
;;G0 DO MSB 
;;FORM THIS DJGIT 



;;GET LSB OF THIS DIGIT 
;;TYPE THIS DIGIT? 
;;8R If NO 
;;GET RID OF JUNK 
;;TEST FOR 0 
; .-SUPPRESS THIS 0? 
* *BR IF YES 

;; DON'T SUPPRESS ANYMORE O'S 
;;MAKE THIS DIGIT ASCII 
.-.MAKE ASCII IF NOT ALREADY 
;;SAVE FOR TYPING 
;;G0 TYPE THIS DIGIT 
.-.COUNT BY 1 
;.BR IF MORE TO DO 
;;BR IF DONE 

;; INSURE LAST DIGIT ISN'T A BLANK 
;;G0 DO THE LAST DIGIT 
; .-RESTORE R5 
; .-RESTORE R4 
• -RESTORE R3 

;;SET THE STACK FOR RETURNING 
- 'RETURN 

;; STORAGE FOR ASCII DIGIT 
;; TERMINATOR FOR TYPE ROUTINE 
.-.OCTAL DIGIT COUNTER 
; ; ZERO FILL SWITCH 
; .-NUMBER OF DIGITS TO TYPE 



■a********************!****************************************** 
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CONVERT BINARY 



P 8 

TO DECIMAL AND TYPE ROUTINE 



40/ S 






























41^8 










4029 










40^0 




















HU ?C 
■f 'J .» J 


















4034 


01 ^1 1ft 








4035 


01P1 1ft 

VIC > « \J 


01004ft 








012120 


01014ft 






4037 


012122 


010246 






4038 


012124 


01034ft 

V 1 V Jf u 






4039 


01 J 12fc 


Ol054ft 






4040 


0121 30 


012746 


020200 

\jc vc w 




4041 


0121 34 


016605 


000020 

V vwt V 




404 ^ 


012140 


100004 






4043 


01214? 


005405 






4044 
4045 


012144 


1 12766 


000055 

V WV J J 


000001 


01215t 


005000 

w -*vw 






404ft 


012154 


012703 


012332 




4047 


012160 


1 12723 


000040 

ww~ v/ 




4048 


012164 


005002 

w -* wc 






4049 


012166 


016001 


012322 




4050 


012172 


160105 






4051 


0121 74 


00240<l' 






4052 


012176 


005202 






4053 


012200 


000774 






4054 


012202 

\J ' C £- wt- 


060105 






4055 


012204 


005702 






4056 


012206 


001002 






4057 


012210 


105716 






4C58 


012212 


100407 






4059 


012214 

V I C C- ' ~ 


106316 






4060 


012216 

V ■ c- c » w 


103003 






4061 


012220 


116663 


000001 

www » 


\77777 


4062 


012226 


052702 


000060 




4063 


012232 


052702 


000040 

W W » V 




4064 


012236 


110223 






4065 


012240 


005720 






4066 


012242 


020027 


000010 




4067 


012246 


002746 






4068 


012250 


003002 






4069 


012252 


010502 






4070 


012254 


000764 






4071 


012256 


105726 






4072 


012260 


100003 






4073 


012262 


116663 


W7777 


1 7777ft 


4074 


012270 


105013 






4075 


01227? 


012605 






4076 


012274 


012603 






4077 


012276 


012602 






4078 


012300 


012601 






40/9 


012302 


012600 






4080 


012304 


104401 


012332 





.••THIS ROUTINE IS USED TO CHANGE A 16-8IT BINARY NUMBER TO A 5-DIGIT 
; "SIGNED 0ECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
.••NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
.••BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
.•REPLACED WITH SPACES. 



; *CAL L.- 



ST YPDS: 



2%. 



5S: 



6$: 
7%: 



8%: 



9$: 



MOV NUM.-(SP) 
TYPDS 



MOV R0.-C5P) 

MOV R1.-(SP) 

MOV R2.-(SP) 

MOV R3.-CSP) 

MOV R5.-(SP) 

MOV #20200. -(SP) 

MOV 20(SP).R5 

BPL 1$ 

NEG R5 

M0VB #'-.1(SP) 

CLR R0 

MOV *SDBLK,R3 

M0V8 *' ,<R3)* 

CLR R2 

MOV $DTBL(R0).R1 

SUB R1.R5 

BLT 4S 

.'NC R2 

BR 3S 

ADD R1.R5 

TST R2 

8NE 54 

TSTB (SP) 

BMI 7$ 

ASL8 (SP) 

BCC 6$ 

M0V8 1(SP),-KR3) 

BIS #'0.R2 

BIS #" ,R2 

M0V8 R2.(R3>* 

TST (R0)* 

CMP R0.*10 

BLT 2$ 

BGT 8$ 

MOV R5.R2 

BR 6$ 

TSTB (SP) ♦ 

BPL 9$ 

M0V8 -1 (SP). -2 (R3) 

CLR8 (R3) 

MOV (SP)*.R5 

MOV (SP)*.R3 

MOV (SP)*.R2 

MOV (SP)*.R1 

MOV (SP)*.RC 

TYPE ,$D6LK 



;;PUT THE BINARY NUMBER ON THE STACK 
;;G0 TO THE R0J1INE 



PU^H RG ON STACK 

PUSH R1 ON STACK 

PUSH R2 ON STACK 

PUSH R3 ON STACK 

PUSH R5 ON STACK 

SET SLAW SWITCH AND SIGN 

GET THE INPUT NUMBER 

BR IF INPUT IS P0S. 

MAKE THE BINARY NUMBER P0S. 

MAKE THE ASCII NUMBER NEG. 

ZERO THE CONSTANTS JNDEX 

SETUP THE OUTPUT POINTER 

SET THE FIRST CHARACTER TO A BLANK 

CLEAR THE BCD NUMBER 

GET THE CONSTANT 

FORM THIS BCD DIGIT 

BR IF DONE 

INCREASE THE BCD DIGIT By 1 

ADD BACK THE CONSTANT 

CHECK IF BCD DIGIT-0 

FALL THROUGH IF 0 

STILL DOING LEADING O'S'' 

BR IF YES 

MSD? 

BR IF NO 

YES — SET THE SIGN 

MAKE THE BCD DIGIT ASCII 

MAKE IT A SPACE IF NOT ALREADY A DIGIT 

PUT THJS CHARACTER IN THE OUTPUT BUFFER 

JUST INCREMENTING 

CHECK THE TABLE INDEX 

GO DO THE NEXT DIGIT 

GO TO EXIT 

GET THE LSD 

GO CHANGE TO ASCII - 

WAS THE LSD THE FIRST NON-ZERO? 

BR 1 F NO 

YES— -SET THE SIGN FOR TYPING 

SET THE TERMINATOR 

POP STACK INTO R5 

POP STACK INTO R3 

POP STACK INTO R2 

POP STACK INTO R1 

POP STACK INTO RO 

NOW TYPE THE NUMBER 



C 8 
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SEC) 0093 



4081 

4082 

4083 

4084 

4085 

4086 

4087 

4088 

4089 

4090 

4091 

4092 

4093 

4094 

4095 

4096 

4097 

4098 

4099 

4100 

4101 

4102 

4103 

4104 

4105 

4106 

4107 

4108 

4109 

4110 

4111 

4112 

4113 

4114 

4115 

4116 

4117 

4118 

4119 

4120 

4121 

4122 

4123 

4124 

4125 

4126 

4127 

4128 

4129 

4130 

4131 

4132 

4133 

4134 

4135 

4136 



0 1 2310 
012316 
012320 
012322 
012324 
012326 
012330 
012332 



012342 
012346 
012350 
012352 
012354 
012356 
012362 
012370 
012372 
012400 
012402 
012406 
012412 
012414 
012422 
012424 
012426 
012430 
012432 
012434 
012440 
012442 
012446 
012450 
012454 
012456 
012460 
012462 
012464 
012470 
012472 



016666 
012616 
000002 
023420 
001750 
000144 
000012 
000004 



105767 
100002 
000000 
000430 
010046 
017600 
122767 
001011 
132767 
001405 
010067 
004767 
000000 
132767 
001003 
112046 
001005 
005726 
012600 
062716 
000002 
122716 
001430 
122716 
001006 
005726 
104401 
001227 
105067 
000755 
004767 



000002 000004 



1DT8L: 



MOV 
MOV 
RTI 

10000. 
1000. 
100. 
10. 
.8LKW 



2(SP>.4(SP; 
(SP)*.(SP) 



;;ADJJST THE STACK 
; .'RETURN TO USER 



$D8LK: 
•S8TTL TYPE ROUTINE 

♦ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE. 
•THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 



•NOTE 1 
•NOTE 2 
•N0TE3 

•CAIL: 
•1) USING A 

• TYPE 
•OR 

• TYPE 

• MESADR 



SNULL CONTAINS THE CHARACTER TO BE USED AS 1HC FILLER CHARACTER. 
$F ILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 



TRAP INSTRUCTION 
.MESADR 



; .MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 



166611 , 




$TYPE .- 


TST8 
BPL 
HALT 
BR 


$TPFLG 
1$ 

3$ 


;IS THERE A TERMINAL? 
;8R IF YES 

-.HALT HERE If NO TERMINAL 
• ;LEAVE 






1$: 


MOV 


RO,-(SP) 


• ; SAVE RO 


000002 






MOV 


32(SP).R0 


;;GET ADDRESS Of 'ASCIZ STRING 


000001 


166662 




CMPB 


*APTENV.$ENV 


;; RUNNING IN APT MODE 


000100 






BNE 


62$ 


■ .NO.GO CHECK fOR APT CONSOLE 


166653 




BITB 
BEO 


#APTSPOOt.$ENVM . 
62$ 


•.SPOOL MESSAGE TO APT 
• .NO.GO CHECK FOR CONSOLE 


000004 






MOV 


R0.61$ 


•; SETUP MESSAGE ADDRESS fOR APT 


000220 






JSR 


PC,$ATY3 


•.SPOOL MESSAGE TO APT 






61$: 


.WORD 


0 


•.•MESSAGE ADDRESS , 
;APT CONSOLE SUPPRESSED 


000040 


166631 


62$: 


BIT8 


#APTCSUP,$ENVM 






2$: 


BNE 


60$ 


• YES SKJP TYPE OUT 






MOVB 


<R0)*.-<SP) 


;PUSH CHARACTER TO BE TYPED ONTO STACK 
;8R IF IT ISN'T THE TERMINATOR 








BNE 


4$ 








TST 


(SP) + 


;IF TERMINATOR POP IT OFF THE STACK 


000002 




60$: 


MOV 


(SP)+,RO 


•.•RESTORE RO 




3$: 


ADD 


#2.(SP) 


.•ADJUST RETURN PC 


00001 1 






RTJ 




• .-RETURN 




4$: 


CMP8 
BEO 


#HT,(SP) ! 
8$ 


;8RANCH If <HT> 


000200 






CMPB 
BNE 

TST 
TYPE 


#CRLF.(SP1 
5$ 

(SP) + 


.■BRANCH IF NOT <CWJ> 

;POP <CRXLF> EQU1V 
.TYPE A CR AND LF 


000130 






$CRLF 










CLR8 


$CHARCNT 


.•CLEAR CHARACTER COUNT 


000056 






BR 


2$ 


;GET NEXT CHARACTER 




5$: 


JSR 


PC,$TYFEC 


;G0 TYPE THIS CHARACTER 
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D 8 



SEO 0094 



4137 

4138 

4139 

4140 

4141 

4142 

4143 

4144 

4145 

4146 

4147 

4148 

4149 

4150 

4151 

4152 

4153 

4154 

4155 

4156 

4157 

4158 

4159 

4160 

4161 

4162 

4163 

4164 

4165 

4166 

4167 

4168 

4169 

4170 

4171 

4172 

4173 

4174 

4175 

4176 

4177 

4178 

4179 

4180 

4181 

4182 

4183 

4184 

4185 

4186 

4187 

4188 

4189 

4190 

4191 

4192 



012476 
012502 
012504 

012510 
012514 
012516 
012522 
012526 



012530 
012534 
012540 
012546 
012550 
012552 
012554 
012560 
012562 
012570 
012576 
012600 
012604 
012606 
012614 
012616 
012620 
012622 



012624 
012632 
012640 
012642 
012650 
012650 
012652 
012654 
012660 
012662 
012670 
012672 
012700 
012702 
012706 
012714 
012720 
012722 
012726 
012730 
012732 
012736 



126726 
001350 
016746 

105366 
002770 
004767 
105367 
000770 



112716 
004767 
132767 
001372 
005726 
000724 
105777 
100375 
116677 
122766 
001003 
105067 
000406 
122766 
001402 
105227 
000000 
000207 



112767 
112767 
000403 
M2767 

010046 
010146 
105767 
001450 
122767 
001031 
132767 
001425 
017600 
062766 
005767 
001375 
010067 
105720 
001376 
166700 
006200 



1 AAZ.«sZ. 




AC • 


rMPQ 

(.Hrts 


* c 1 1 i r ( co \ i . 
J>r i LL I / I or) * 1 , 


lb 11 lint FUR FILLER CHARS.? 








BNE 


2$ 


IF NO GO GET NEXT CHAR. 


166444 






MOV 


$NULL.-(SP) 


•GET ft OF FILLER CHARS. NEEDED 


000001 




7$: 






AND THE NULL CHAR. 




DEC8 


KSP) 


DOES A NULL NEED TO BE TYPED? 








8LT 


AC 


OH Jr IMU--C)U rur IHt NULL Orr Or STACK 






JSR 


or ctvdpt 


• rn tvdc a ah ii i 
uU 1 Yrt A NULL 


oono7? 






DECB 




. p\n fcinT rniuuT ac a mi hut 
W FUJI lUUfVI AS A LUUNI 








BR 


7C 


■ i nno 
LUUr 






.•HORIZONTAL TA8 


PRnrc^cno 

rl\U' EOoUn 








8$: 


M0V8 




-RPPI ATP TAB Ul TU CDAfC 


000014 




?$: 


JSR 


pr CTvpcr 


• TVPP A QPATP 


000007 


00005? 




BITS 




•RRAWfW IF MflT AT 








BNE 




•TAR ^TOP 
1 no J 1 Ur 








TST 


v or / ^ # 4 


•POP C.PATF OFF CTATk' 
r\jr ornLC Ur r jIMl^ 








BR 




•SFT KJF¥T TUAOATTPD 


166370 




STYPEC: 


TST8 












BPL 


STYPFf 

♦ 1 1 ILL 




000002 


1 66362 

■ >JU JUL 




M0VB 




■I DAD fMAR Tfl RF TVPPD fKlTD rvATA RPf: 


00001 5 


000002 




CMP8 




■1^ r MARAT TPR A fARRIAHP BF Tl DM" 


000014 






BNE 


1$ 


'BRANCH IF NO 






CLR8 


SCHARCNT 


; YES — CLEAR CHARACTER COUNT 








BR 


STYPEX 


.'EXIT 


000012 


000002 


1$: 


CMP8 


#LF.2(SP) 


rIS CHARACTER A LINE FEED? 








BEQ 


STYPEX 


; BRANCH IF YES 








INCB 


(PC)* 


; COUNT THE CHARACTER 






$CHARCNT:.W0RD 


0 


; CHARACTER COUNT STORAGE 






STYPEX: 


RTS 


PC 





.SBTTL APT COfWUNIC^TIONS ROUTINE 



000001 
000001 



000236 
000226 



000001 000220 



SATY1 : 
SATY3: 

SATY4: 
SATYC: 



000206 

000001 

000100 

000004 
000002 
166312 

166320 
166310 



166362 
166353 

000004 



1$: 



2$: 



M0V8 #1,$fFLG 

M0V8 #1 . JMFLG 

BR SAT YC 

M0V6 #1,$FFLG 

MOV R0,-(SP) 

MOV Rl ,-(SP) 

TST8 SMFLG 

BEQ 5$ 

CMP8 #APTENV.$ENV 

BNE 3$ 

BIT8 #APTSP00L,SENVM 

BEQ 3$ 

MOV 14(SP).R0 

ADD #2,4 (SP) 

TST SMSGTYPE 

BNE 1$ 

MOV R0. SMS GAD 

TST8 (R0)+ 

BNE :$ 

sue smsgad.ro 

ASR R0 



;;T0 REPORT FATAL ERROR 
;;T0 TYPE A MESSAGE 

;;T0 ONLY REPORT FATAL ERROR 



PUSH R0 ON STACK 
PUSH R1 ON STACK 
SHOULD TYPE A MESSAGE? 
IF NOT: BR 
OPERATING UNDER APT? 
IF NOT: BR 

SHOULD SPOOL MESSAGES? 

IF NOT: BR 

GET MESSAGE ADDR. 

;;8UMP RETURN ADDR. 
SEE IF DONE W/ LAST XMISSI0N? 
IF NOT: WAIT 
PUT ADDR IN MAILBOX 
FIND END OF MESSAGE 



;;SUB START OF MESSAGE 
;;GET MESSAGE LNGTH IN WORDS 
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E 8 



SFQ 0095 





m ">7LC\ 
\)\C( hU 


U I UvO ' 
UlC'Of 


1 AA^OA 

I OO JVH 




MOW 

nuv 


DO uvicf;i r,T 


• -PUT i FMHTU TK) MA T I OtW 


L"\Q.i. 






I OOcOu 


MOW 

nuv 


HL tMCflTVPF 
99 H . VIju 1 I r C 


• • TPI 1 APT TO TAk"C MT. 


/11QS 


ni ?7S? 








DP 
OK 


J* 




H 1 7D 


01 ?7sz. 


m 7AA7 

U I ' OO' 




finnoi a 

KJWkJ 1 o 




01** ^ jr ) 


■ -put MS(^ anho tw icp i iMfc"Arc 


L1Q7 


U ic'Oc 


UOc ' OO 


nnnnn^ 


OnnnnA 

UUUUUh 




A^SP^ 
ffC I Or; 


• •DtIMP PCTIIDM AftnPCCC 
..tSUrlr' Mc 1 UrclM MUUKcii 


41 OR 


m ?770 


01 A746 


16S00? 




HUV 




■ •piisu 1 7/77A nw CTArk - 


^ 1 77 


f)1 ?774 


00A7A7 
\J\JHf Of 








Pf tTVPF 
"1,11 I "C 


• -TAI 1 TVPF MAfDn 
, , LMLL I TrC DMLrtU 


/ TAT) 


m xono 


oooono 














v I Jvvc 














4?o? 


01 ?no? 


10<» 767 

IvJ' O' 


nooo^p 




iot- t«;tr 


tFFI ft 


• ■ SWOI II R RFPDPT FATAI FRPDR'? 


4?03 


01 3006 


001416 






RFC 


1 ?% 


• • IF MOT • RR 
. . i r th\j i • Dta 


4?04 




00S7A7 


1662^6 




T ST 


tFNV 

^C'»V 


•■RIINNINIf; IIWrtFR APT ^ 






00141 3 






DC W 


12$ 


• • IF NOT ■ RR 


4?06 


01 Vj16 


005767 


16f>?10 




114- TST 


tMSRT VPF 


••FINISHFD 1 AST MFSSAGF'' 


4207 


0130P2 

V 1 JVC C 


001 375 








11$ 


• • IF NOT • UAIT 


4?0R 


01 ^0?4 

V 1 JVC 1 * 


017667 


000004 


1 66P0? 


wnv 

1 IUV 


^ C^P) (FATAI 


• -PIFT FRROR Jt 
. . V3C ' LnnUn if 


4209 


01 3032 


062766 


000002 


000004 


ADD 




■ 'RIIMP RFTIIRN APOR 


4210 


01 3040 


005267 


16616ft 




I'm 




• • TFI 1 APT TO TAKF FRROR 


421 1 


013044 


105067 

1 \J J \J\J r 


000020 




i?i- n rr 




* ■ Tl FAR FATAI Fl AG 




013050 


105067 

1 V J \J\J f 


00001 3 




n rr 


■PL' L\J 


• 'fl FAR 1 OH Fl AG 

. « LLCMo L U\J r LMU 


421 3 


01 3054 


105067 


000006 

V WW* J 




CI RR 


$MFL G 


• • Tl FAR MFSSAGF Fl AG 


4214 


013060 


01 2601 






MOV 


(SP)+ R1 


••POP STACK INTO R1 


421 5 


01 3062 


01P600 






MOV 


(SP>+ R0 


• 'POP STAPK INTO RO 


4216 


013064 


000207 






RTS 


PC 


■ -RF TURN 


4217 


013066 


000 






SMFLG- BYTE 


o 


• -MFSSG FLAG 


4218 


013067 


000 






SLFLG: .BYTE 


0 




4219 


01 3070 


000 






$FFLG: .BYTE 


0 


; ; FATAL FLAG 






01 ^07? 






.EVEN 






4221 




000200 

VVvL W 






APTSIZE=200 






4222 




000001 






APTENV=001 






4??3 




0001 00 






APT SPOOL =100 










00004C 






APTCSUP=040 






4225 










. S8TTL TTY INPUT ROUTINE 




4226 
















4227 










••»*****»********»***»*»*********»**»***»»»***»»****»»*********** 


4228 










.ENA8L LS8 






4229 
















4230 










- •****** + **»**********************************»»***************»» 


4231 










;* SOFT WARE SWITCH REGISTER CHANGE ROUTINE. 


4232 










.-♦ROUTINE IS ENTERED FROM THE 


TRAP HANDIER, AND WILL 


4233 










.••SERVICE THE 


TEST FOR CHANGE 


IN SOFTWARE SWITCH REGISTER TRAP CALL 


4234 










.-•WHEN OPERATING IN TTY FLAG MODE. 


4235 


01 3072 


022767 


000176 

VW I ' \J 


166040 


SCKSWR: CMP 


#SWREG,SWR 


;;IS THE S0rT-SWR SELECTED? 


4236 


013100 


001 074 
105777 






BNE 


15$ 


; .'BRANCH IF NO 


4237 


013102 


166036 




TSTB 


S$TKS 


;;CHAR THERE? 

;;IF NO, DON'T WAIT AROUND 


/ O 7Q 
*tfcJO 


m ^1 ha 

U I J I uo 


i nnn7i 






BPL 


15$ 


4239 


013110 


1 1 7746 


166032 




M0V8 


a$TKB.-(SP) 


;;SAVE THE CHAR 


4240 


013114 


042716 


1 77600 




BIC 


#*CI77,(SP) 


;; STRIP-OFF THE ASCII 


4241 


013120 


022726 


000007 




CMP 


#7.(SP)* 


;;IS IT A CONTROL G? 


4242 


013124 


001 C6Z 






BNE 


15$ 


;;N0, RETURN TO USER 


4243 


013126 


126727 


166002 


000001 


CMP8 


$AUT08,*1 


;;ARE WE RUNNING IN AUT0-M0DE ? 


4244 


013134 


001456 






BEO 


15$ 


; .'BRANCH IF YES 


4245 
















4246 


013136 


104401 


013745 




TYPE 


,$CNTLG 


;;ECH0 THE CONTROL -G <*G) 


4247 


013142 


104401 


013752 




SGTSWR: TYPE 


.$MSWR 


;;T>PE CURRENT CONTENTS 


4248 


013146 


016746 


165024 




MOV 


SWRFG.-(SP) 


; ; SAVE SWREG FOR TYPE OUT 
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4?49 


VI Jl it 


1A440P 

1 \JHH\JC 






4250 


01 31 54 


104401 


01 ^76^ 




4251 




005046 








01 ^16? 

ul Jl DC 








4253 


01 3164 


105777 

1 v J f f f 


165754 




4254 


01 31 70 


100375 
















4256 


013172 


1 1 7746 


165750 




4257 


01 31 76 

VlJI'U 


042716 


1 77600 




4258 










4259 










4260 










4261 


013202 


021627 


0UO025 




4262 


013206 


001005 






4263 


013210 


104401 


013740 




4264 


013214 


062706 


000006 

Wv WU 




4265 


01 3220 


000757 






4266 










4267 










4268 


013222 


021627 


00001 5 




4269 


013226 


001022 






4270 


013230 


005766 


000004 




4271 


013234 


001403 






4272 


013236 


016677 


000002 

W V W k 


165674 


4273 


01 3244 


062706 


000006 




4274 


013250 


104401 


001227 




4275 


013254 


\2b727 


165655 


000001 

\S V \S \S V t 


4276 


013262 


001003 






4277 


C13264 


012777 


000100 


165652 


4278 


013272 


000002 






4279 


013274 


004767 


177254 




A 280 


013300 


021627 


000060 




4281 


013304 


002420 






4282 


013306 


021627 


000067 




4283 


013312 


003015 






4284 


013314 


042726 


000060 




4285 


01 3320 


005766 


000002 




4286 


013324 


001403 






4287 


013326 


006316 






4288 


013330 


006316 






4289 


013332 


006316 






4290 


013334 


005266 


000002 




4291 
4292 


013340 


056616 


17/ 776 




013344 


000707 






4293 


013346 


104401 


001226 




4294 


013352 


00C720 






4295 










4296 










4297 










4298 










4299 










4300 










4301 










4302 










4303 










4304 











19$: 
7$: 



9$: 
20$: 

10$: 



11$: 
14$: 



15$: 
16$: 



17$: 



18$: 
•DSABL 



TYPOC 

TYPE 

CLR 

CLR 

TST8 

BPL 

MOVB 
BIC 



CMP 

BNE 

TYPE 

ADD 

BR 



CMP 

BNE 

TST 

BEQ 

MOV 

ADD 

TYPE 

CMP8 

BNE 

MOV 

RTI 

JSR 

CMP 

BLT 

CMP 

BGT 

BIC 

TST 

BEQ 

ASL 

ASL 

ASL 

INC 

BIS 

BR 

TYPE 

BR 

LS8 



,$MNEW 

-(SP) 
-(SP) 
a$TK<: 
7$ 

a$TKB.-(SP) 
# A C177.(SP) 



(SP).*25 
10$ 

.$CNTLU 

#6,SP 

19$ 



(SP).*15 
16$ 
4(SP) 
11$ 

2(SP).3SWR 

*6.SP 

,$CRLF 

$INTAG.*1 

15$ 

#100.3$TKS 

PC.$TYPEC 
(SP) ,*60 
18$ 

(SP).#67 
18$ 

*60.(SP)* 

2v »> 

17$ 

(SP) 

(SP) 

(SP) 

2(SP) 

-2(SP).(SP) 
7$ 

.$QUES 
20$ 



; A************************* 

•THIS ROUTINE WILL INPUT A 
•CALL: 

RDCHR 

* RETURN HERE 

* 



8 



SCO C096 

;;G0 TYPE— OCTAL ASCII (ALL DIGITS) 

; .-PROMPT FOR NEW SWR 

;; CLEAR COUNTER 

; ; THE NEW SWR 

;;CHAR THERE? 

;;IF NOT TRY AGAIN 

;;PICK UP CHAR 
;;MAKE IT 7-BIT ASCII 



IS IT A CONTROL -U? 
BRANCH IF NOT 
YES. ECHO C0NTR0L-U (*U) 
IGNORE PREVIOUS INPUT 
LET'S TRY IT AGAIN 



IS IT A <CR>? 
BRANCH IF NO 

YES, IS IT THE FIRST CHAR 7 

BRANCH IF YES 

SAVE NEW SWR 

CLEAR UP STACK 

ECHO <CR> AND <LF> 

RE -ENABLE TTY KBD INTERRUPTS? 

BRANCH IF NOT 

RE-ENABLE TTY KBD INTERRUPTS 

RETURN 

ECHO CHAR 

CHAR < 0? 

BRANCH IF YES 

CHAR > 7? 

BRANCH IF YES 

STRIP-OFF ASCII 

IS THIS THE FIRST CHAR 

BRANCH IF YES 

NO. SHIFT PRESENT 

CHAR OVER TO MAKE 

ROOM FOR NEW ONE. 
KEEP COUNT OF CHAR 
SET IN NEW CHAR 
GET THE NEXT ONE 
TYPE ?<CRXLF> 
SIMULATE CONTROL -U 



SINGLE CHARACTER FROM THE TTY 

;; INPUT A SINGLE CHARACTER FROM THE TTY 
;; CHARACTER IS ON THE STACK 
;;WITH PARITY BIT STRIPPED OFF 
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6 8 



SFO 0097 



4305 








4306 


013354 


01 1646 




4307 


01 3356 


01 6666 


000004 

w w v~ 


4308 


013364 


105777 


1 65554 


4309 


013370 


100375 




4310 


013372 


117766 


165550 


4311 


013400 


042766 


1 77600 


4312 


013406 


026627 


000004 


4313 


013414 


001013 




4314 


013416 


105777 


165522 


4315 


01 3422 


100375 




4316 


013424 


117746 


165516 


4317 


013430 


042716 


1 77600 


4318 


01 3434 


022627 


000021 


4319 


013440 


001366 




4320 


013442 


000750 




4321 


013444 


026627 


000004 


432? 


013452 


002407 




4323 


013454 


026627 


000004 


4324 
4325 


01 3462 


003003 




01 3464 


042766 


000040 


4326 


013472 


000002 




4327 








4328 








4329 








4330 








4331 








4332 








4333 








4334 


013474 


010346 




4335 


013476 


005046 




4336 


013500 


012703 


013730 


4337 


013504 


022703 


013740 


4338 


013510 


101456 




4339 


013512 


104410 




4340 


013514 


112613 




4341 


013516 


122713 


000177 


4342 


013522 


001022 




4343 


013524 


005716 




4344 


013526 


001007 




4345 


013530 


112767 


0001 34 


4346 


013536 


104401 


013726 


4347 


013542 


012716 


177777 


4348 


013546 


005303 




4349 


013550 


020327 


013730 


4350 


013554 


103434 




4351 


013556 


111367 


000144 


4352 


013562 


104401 


013726 


4353 


013566 


000746 




4354 


013570 


005716 




4355 


013572 


001406 




4356 


013574 


112767 


000134 


4357 


013602 


104401 


013726 


4358 


013606 


005016 




4359 


013610 


122713 


000025 


4360 


013614 


001003 





000004 
000004 
0000?3 



000140 
0001 75 
000004 



JRDCHR: 


MOV 




MlA' 


1$: 


TST8 




BPL 




M0V8 




BIC 




CMP 




BNt 


2S: 


TST8 




BPL 




MOVB 




BIC 




CMP 




BNE 




BR 


3$: 


CMP 




3LT 




CMP 




BGT 




BIC 


4$: 


RTI 



(SP),-(SP) 

4(SP).2(SP) 

SSTKS 

1$ 

3$TKB,4(SP) 
# A C<177>^4(SP) 
4(SP),*23 
3$ 

3$TKS 
2$ 

3$TK8.-(SP) 

#-C177.(SP) 

(SP)*.#21 

2$ 

1$ 

4(SP),*140 
4$ 

4(SP).*175 
4$ 

#40.4 (SP) 



PUSH DOWN THE PC 

SAVE THE PS 

WAIT FOR 

A CHARACTER 

READ THE TTY 

GET RID OF JUNK IF ANY 

IS IT A CONTROL-S? 

BRANCH IF NO 

WAIT FOR A CHARACTER 

LOOP UNTIL ITS THERE 

GET CHARACTER 

MAKE IT 7-81 T ASCII 

IS IT A CONTROL -0? 

IF NOT DISCARD IT 

YES. RESUME 

IS IT UPPER CASE? 

BRANCH IF YES 

IS IT A SPECIAL CHAR? 

BRANCH IF YES 

MAKE IT UPPER CASE 



;G0 BACK TO USER 

**»**»*****•****»•»••*•»*»*•»*••**«*************•••*•**••*****• 



•THIS ROUTINE 
•CALL: 

* RDLIN 

* RETURN 



SRDLIN: MOV 
CLR 



WILL INPUT A STRING FROM THE TTY 



1$: 
2$: 



10$: 



000170 



0C0124 



6$: 



5$: 



7f 



MOV 

CMP 

BLOS 

RDCHR 

MOVB 

CMP8 

BNE 

TST 

BNE 

MOVB 

TYPE 

MOV 

DEC 

CMP 

BLO 

M0V3 

TYPE 

BR 

TST 

BEO 

MOVB 

TYPE 

CLR 

CMP8 

BNE 



HERE 



R3.-(SP) 

-(sp; 

#$TTYIN.R3 

«TTYIN+8..R3 

4$ 

(SP)+.(R3) 

#177. (R3) 

5$ 

<SP) 

6$ 

#'\,9$ 
.9$ 

#-1.(SP) 
R3 

R3,#$TTYIN 
4$ 

(R3).9$ 

.9$ 

2$ 

(SP) 
7$ 

#'\.9$ 
.9$ 

(SP) 

*?5,(R3) 
8$ 



INPUT A STRING FROM THE T*TY 

ADDRESS OF FIRST CHARACTER WILL BE ON THE S T ACK 
TERMINATOR WILL BE A BYTE OF ALL O'S 

SAVE R3 

CLEAR THE RUBOUT KEY 
GET ADDRESS 
BUFFER FULL? 
EiR IF YES 

GO READ ONE CHARACTER FROM THE TTY 
GET CHARACTER 
IS IT A RUBOUT 
8R IF NO 

IS THIS THE FIRST RUBOUT? 
8R IF NO 

TYPE A BACK SLASH 

SET THE RUBOUT KEY 
BACKUP BY ONE 
STACK EMPTY? 
8R IF YES 

SETUP TO TYPE OUT THE DELETED CHAR. 
GO TYPE 

GO READ ANOTHER CHAR. 
RUBOUT KEY SET? 
8R IF NO 

TYPE A BACK SLASH 

CLEAR THE RUBOUT KEY 
IS CHARACTER A CTRL U? 
8R IF NO 
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H 8 



SEC 0098 



A 395 
s396 
4397 
4398 
A 399 
4400 
4401 
4402 
4403 
4404 
4405 
4406 
4407 
4408 
4409 
4410 
4411 
4412 
4413 
4414 
4415 
4416 



/Til 
H X) 1 


U 1 3D 1 0 


1 A/ / A 1 








Tunc 




TYPE A CONTROL "U" 


/ 7AO 
s jOc 


U ' ->occ 


AAA7 JA 

UUUf <ro 








DO 
On 


1 c 


PA CTADT AV/CD 

uU j 1 AH I UvrH 


£ 7* 7 


U 1 30c*» 




AAA A O O 




fiC • 


runn 

LPTr'fj 




lb LHAHAL tH A H ; 




A1 7A7H 

Ul SOjU 


ftAI A1 1 








oNt 


7< 

■J* , • 


QDAlifLJ TC # (A 


/ Xf C 


n 1 7<. 7 ~> 


1 UjU 1 j 








ri dq 
LLnta 


KHj) , , 


Tl CAD TUC riJADATTCD 

LLtAK 1 Ht LHAHALltK 

TVDC A ' 'rf) 1 1 ^ 1 *l c 1 ' 

1 rrt A LM &> Lr 


1 7AA 
H jOO 


U I So 3*» 


1 A/ / A 1 
I U*»*»U I 


AA1 "> 07 

UU1 ' 






T VC. C 

1 Trt 


.JuKLr ;, 


/ 7A7 
*» J©f 


m 7a/ n 

U I jO*tU 


1 CM / A1 
1 UmhU 1 


r>i 777n 
U I j' jU 






Tunc 

1 rrt 


C T T V T M 


TVDC TUC KJDI IT CTDIIil/" 

1 Trt Int .(MrUl 5 1 KINO 


i XAR 
*• jDo 


m 7a/ z. 


fiAA71 7 








DC 
tin 




f~A DTTVIID AILIATUCO f"UAf"TCD 

uU riLtvUr ANUIHtn LHACItK 

TVDC A • "7 1 
I Trt A : 




m <A£A 


1 nz.z.n.1 


JU I CCO 




LX. - 


T VDC 

1 Trt 




H Jf U 


U I jO jc 


UUUf i £ 








DO 
ON 


1 c 


Tl CAD TL1C Dl ICCCD Akin 1 AAD 

LLtAM 1 Ht oUrrtn ANU LUUr 


*0f I 


01 7a*;z. 

U I jo J*t 


111 7A7 
I I I jo i 


OOOOZ.A 




?* • 


MAUD 


INjf i v * , , 


CLnU I nt 1 rlMKML I tK 


£77? 


01 7A^n 


1 OA£01 


m 77pa 

U I Jf co 






T VDC 

1 rrt 






£777 


0i 7aa£ 

U I jOO*» 


i 327P7 

I CC f CJ 


00001 ^ 








f#'j # \r\jfT (| 


CHECK FOR RETURN 


£77£ 


01 7A70 
u i jOfyj 


noi 7o«; 

UU 1 jUj 








DMF 


2$ 


i nno i f wnT df ti idm 
L UUr 1 r fMU 1 Kt 1 UKN 




01 7A7? 

U 1 JO i c. 


1 0^0A7 


1 77777 
\ 1 1 1 f i 






ri OR 


t vn jj # g 


fl FAD DF Tl IDM / TWF 1 -\ } 
ULCMrX nt I UniV Vint IJJ 


£77A 


01 7A7A 
\J I JO' o 


10££01 


001 ?70 

UU 1 C JU 






T VPF 
1 Ire 




TYPF A I IMF rFFD 
I iri M LliVC i rev 


4377 


01 770? 


00^7?^ 








f O 1 




• n fam pmni it ^pv fddm tuf ctat^ 

ULCMOI nUDUUI r\t T rr*Un IMC olMLfV 


£778 


01 770A 


01 ?A07 








( "U V 


Kpw o7 


■RESTORE R3 




01 77' V* 

V I Jf <J\J 


01 1 f\Lf\ 








MOV 


(SP).-(SP) 


•ADJUST THE STACK AND PUT ADDRESS OF 


/TOD 


01 7710 


01 AAAA 


00000£ 


00000P 




rlU V 


L ( QP) 5 f QP ) 


F ID^T A^f I T rUADATTFD DM f T 


£7Q1 

H JO I 


01 771 A 

Ul Jf IO 


01 ?7^iA 


01 7770 

Ul Jf JU 


00000/. 




nUV 


If 9* 1 i iri 0 H \ Jtr / 


£7R? 


01 77?£ 


0OOO0? 










•DFTl IDM 


£7«7 


01 77?A 


000 






TJ>> . 


• OTIC 


0 

\j i , 


■^TOBAnF f no Acn i tuad Tn t/pf 

O 1 UftMUC r UTX MoU 1 i LrVW. 1 U 1 rrt 


H JCr* 


0177P7 

J I Jf c f 


000 








M TP 
• Or 1 Z 




- TFOMTMATriD 


*• JO J 


01 7770 

VI Jf JV 


OOOOI ( l 






CTTYIW- 
9 1 1 f 11V* 


.8L(C8 


8. 


■CFQFOUF RVTFC FOR TTV IMP! IT 


H 300 


01 77£0 

\J 1 Jf HU 


UJcJJD 


OO'iOl s 

UU JU • J 


000 




.ASCJZ 


/ A U/<15><12> 
/*6/<15><12> 


; CONTROL "G" 


4387 


013745 


136 


006507 


000012 


SCNTLG: 


•ASCIZ 


4388 


013752 


00501 5 


053523 


020122 


SfiSWR: 


.ASCIZ 


<15><12>/SWR = / 




4389 


01 3760 


020075 


000 












4390 


01 3763 


040 


047040 


053505 


SMNEU: 


.ASCIZ 


/ NEW = / 




4391 


013770 


036440 


000040 












4392 










.S8TTL 


READ AN OCTAL NUMBER FROM 


THE TTY 


4393 


















4394 



















THE 



•THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
•CHANGE IT TO BINARY. 

•THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 
•OCTAL DIGITS. IF AN ILLEGAL CHARACTER 'IS READ A "?" WILL BE TYPED 
•FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST 
♦THEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN. 

•CALL: 

;;READ AN OCTAL NUMBER 
;;L0W ORDER BITS ARE ON TOP OF THE STACK 
;;HIGH ORDER BITS ARE IN $HI0CT 



RD0CT 

RETURN HERE 



013774 
013776 
014004 
014006 
014010 
014012 
014014 
014016 
014022 
014024 
014026 



011646 
016666 
010046 
010146 
010246 
104411 
012600 
010067 
005001 
005002 
112046 



000004 000002 



000100 



tRDOCT: MOV 
MOV 



1 $ : 



2$: 



MOV 

MOV 

MOV 

RDLIN 

MOV 

MOV 

CLfi 

CLR 

wove 



(SP).-(SP) 

4(SP),2(SP) 

R0,-(SP) 

R1,-(SP) 

R2,-(SP) 

(SP)*,R0 

R0.5$ 

R1 

R2 

(R0)*,-(SP) 



PROVIDE SPACE FOR THE 

INPUT NUMBER 

PUSH R0 ON STACK 

PUSH R1 ON STACK 

PUSH R2 ON STACK 

READ AN ASCIZ LINE 

GET ADDRESS OF 1ST CHARACTER 

AND SAVE IT 

CLEAR DATA WORD 



; .-PICKUP THIS CHARACTER 



I 8 
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Sfd 0099 



441? 

4418 

44*9 

44?0 

4421 

4422 

4423 

4424 

4425 

4426 

4427 

^428 

4429 

4430 

4431 

4432 

4433 

4434 

4435 

4436 

4437 

4438 

4439 

4440 

£441 

4442 

4443 

4444 

4445 

4446 

4447 

4448 

4449 

4450 

4451 

4452 

4453 

4454 

4455 

4456 

4457 

4458 

4459 

4460 

4461 

4462 

4463 

4464 

4465 

4466 

4467 

4468 

4469 

4470 

4471 

4472 



014030 

014032 

014036 

014040 

014044 

014046 

014050 

014052 

014054 

014056 

014060 

014062 

014066 

014070 

014072 

014074 

014100 

014104 

014106 

014110 

014112 

014114 

014116 

014120 

014122 

014124 

014130 

014132 



014134 
014136 
014144 
014146 
014150 
014152 
014154 
014156 
014162 
014164 
014166 
014172 
014174 
014176 



001420 

1227 i 6 

003026 

122716 

002423 

006301 

006102 

006301 

006102 

006301 

006102 

042716 

062601 

000756 

005726 

010166 

010267 

012602 

012601 

012600 

000002 

005726 

105010 

104401 

000000 

104401 

000730 

OCOOOO 



000060 
000067 



W777Q 



000012 
000026 



001226 



31: 



4$: 



51: 



SHJOCT; 
. S8TTL 



BEO 3$ 

CMPB »'0.(SP) 

BGT 4$ 

CMP8 #'7,(SP) 

BLT 41 

ASL R1 

ROL R2 

ASL R1 

ROL R2 

ASL R1 

ROL R2 

BIC «TC7,(SP) 

ADD (SP)+,R1 

BR 21 

TST (SP) + 

MOV R1.12(SP) 

MOV R2,!HJ0CT 

MOV (SP)*.R2 

MOV (SP) ,R1 

MOV (SP)*.RO 

RT] 

TST (SP)* 

CLR8 (RO) 
TYPE 

.WORD 0 

TYPE .1QUES 

BR 11 

WORD 0 

READ A DECIMAL NUMBER 



IF ZERO GET OUT 

MAKE SURE THIS CHARACTER 

IS AN OCTAL DIGIT 



;;*2 
; ; *4 
: ; «8 



STRIP THE ASCII JUNK 
ADD IN THIS DIGIT 
LOOP 

CLEAN TERMINATOR FROM STACK 
SAVE THE RESULT 

POP STACK IMG R2 
POP STACK INTO R1 
POP STACK INTO RO 
RETURN 

CtEAN PARTIAL FROM STACK 

SET A TERMINATOR 

TYPE UP THRU THE BAD CHAR. 



;;"?" "CR" fc IF" 
; ; TRY AGAIN 

;;HIGH ORDER BITS GO HERE 
FROM THE TTY 



-**************«*******«^************************»************** 

•THIS ROUTINE WILL READ A DECIMAL (ASCI J) NUMBER FROM THE TTY AND 
•CHANGE IT TO BINARY. IF TOO MANY CHARACTERS OR ANY ILLEGAL CHARACTERS 
•ARE READ A '*?" FOLLOWED BY A CARRIAGE RETURN-LINE FEED WILL BE TYPED. 
•THE COMPLETE NUMBER MUST BE RETYPED. THE INPUT IS TERMINATED BY THE 
•USER TYPING A CARRIAGE RETURN. THE RANGE OF THE INPUT NUMBER IS 
•POSITIVE 32767 TO NEGATIVE 32768. 
•CALL: 

• RDDEC ;;READ A DECIMAL NUMBER 

RETURN HERE ; .NUMBER IS ON TOP OF THE STACK 



0*1646 

016666 000004 000002 

010046 

010146 

010246 

104411 

012600 

010067 000120 

005046 

005002 

1?"V10 000055 
001001 
112002 
112001 



1RDDEC 



11: 



21: 



MOV 
MOV 

MOV 

MOV 

MOV 

RDL IN 

MOV 

MOV 

CLR 

CLR 

CMP8 

BNE 

M0V8 

M0V8 



(SP),-(SP> 

4(SP),2<SP) 

RO,-(SP) 

R1,-(SP) 

R2.-CSP) 

(SPJ+.RO 
R0,6t 
-(SP) 
R2 

#'-,(R0) 
21 

(R0)+,R2 
(R0)+.R1 



PROVIDE SPACE FOR 

THE INPUT NUMBER 

PUSH RO ON STACK 

PUSH R1 ON STACK 

PUSH R2 ON STACK 

READ AN ASCIZ t INE 

ADDRESS OF 1ST CHAR. 

SAVE INCASE OF SAD INPUT 

CLEAR DA T A WORD 

SIGN SET POSITIVE 

SEE IF A MINUS SIGN WAS TYPED 

8R IF NO MINUS SIGN 

SAVE FOR LATER USE 

PICKUP THIS CHARACTER 



J 8 
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5E0 0100 



4473 

4474 

4475 

4476 

4477 

4478 

4479 

4480 

4481 

4482 

4483 

4484 

4485 

4486 

4487 

4488 

4489 

4490 

4491 

4492 

4493 

4494 

4495 

4496 

4497 

4498 

4499 

4500 

4501 

4502 

4503 

4504 

4505 

4506 

4507 

4508 

4509 

4510 

4511 

4512 

4513 

4514 

4515 

4516 

4517 

4518 

4519 

4520 

4521 

4522 

4523 

4524 

4525 

4526 

4527 

4528 



014200 

014202 

014206 

014210 

014214 

014216 

014222 

014224 

014226 

014230 

014232 

014234 

014236 

014240 

014244 

014246 

014250 

014252 

014254 

014256 

014260 

014264 

014^66 

014270 

014272 

014274 
014276 
014300 
014302 
014304 
014310 



014312 
014314 
014320 
014322 
014324 
014326 
014332 



014334 
014336 
014344 



001424 

122701 

003032 

122701 

002427 

032716 

001024 

006316 

011646 

006316 

006316 

062616 

102416 

162701 

060116 

102412 

000752 

0057C2 

001401 

005416 

012666 

012602 

012601 

012600 

000002 

005726 
105010 
104401 
000000 
104401 
00072C 



010046 
016600 
005740 
111000 
006300 
016000 
000200 



000060 
000071 
1 70000 



000060 



000012 



001226 



000-J02 



014346 



3$: 
4S: 

5$: 
6$: 



BEQ 


3$ 


•GET OUT IF ZERO 


CMPB 


*'0 R1 


'MAKE SURE THIS CHARACTFR 


BGT 


5$ 


•IS A DIGIT BETWEEN 0 £ 9 


CMPB 


#'9 R1 




BLT 


S$ 




BIT 


# A C7777,(SP) 


;D0N'T LEI NUMBER GET TO BIG 


BNE 


5$ 


•BR IF NUMBER WOULD OVERFLOW 


ASL 


(SP) 


;*2 


MOV 


(SP).-(SP) 


;SAVE FOR LATER 


ASL 


(SP) 


;*4 


ASL 


v'SP) 


;*8. 


ADD 


(SP)+.(SP) 


;*10. 


BVS 


5$ 

#'0,R1 


.'OVERFLOW ISN'T ALLOWED 


SUB 


.-STRIP AWAY THE ASCII JUNK 


ADD 


R1.(SP) 

5$ ; 


;ADD IN THIS DIGIT 

; OVERFLOW ISN'T ALLOWED 


BVS 


BR 


2$ 


;L00P 


TST 


R2 


; CHECK IF NUMBER IS NEG 


DEO 


*i» « 


.On 1 r IMU 


NEC 


(SP) 


; YES — NEGATE THE NUMBER 


MOV 


<SP)*.12(SP) 


;SAVE THE RESULT 


MOV 


(SP)*.R2 


;P0P STACK INTO R2 


MOV 


(SP)*,R1 


;P0P STACK INTO R1 


MOV 


(SP)*.RO 


;P0P STACK INTO RO 


RTI 




.•RETURN 



TST 
CLRB 
TYPE 
.WORD 
TYPE 
BR 



(SP)* 
(RO) 

0 

,WUES 
1S 



.S8TTL TRAP DECODER 



CLEAN PARTIAL NUMBER FROM STACK 

SET A TERMINATOR 

TYPE THE INPUT UP TO BAD CHAR. 

POINTER GOES HERE 

"?" "CR" I'lF" 

TRY AGAIN 



■*»**••*****»*******••*•***•*•***•*•••***••*******••****•••**»** 

•THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP" INSTRUCTION 
•AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
•OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
•GO TO THAT ROUTINE. 

SAVE RO 

GET TRAP ADDRESS 
BACKUP BY 2 
GET RIGHT BYTE OF TRAP 
POSITION FOR INDEXING 
INDEX TO TABLE 
GO TO ROUTINE 



;;THIS IS USF TO HANDLE THE "GETPRI" MACRO 



STRAP: MOV 


R0,-(SP> 


MCV 


2(SP),R0 


TST 


-(RO) 


M0V8 


(RO).RO 


ASL 


RO 


MOV 


$TRPAD(R0).R0 


RTS 


RO 



011646 

016666 000004 
000002 



000002 



STRAP2: MOV 
MOV 
RTI 



(SP),-(SP) 
4(SP).2(5P) 



;M0VE THE PC DOWN 
.•MOVE THE PSW DOWN 
.-RESTORE THE PSW 



.S8TTL TRAP TABLE 
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K 8 



SEO 0101 



4529 






4530 






4531 






4532 






4533 






4534 






4535 


014346 


014334 


4536 


014350 


012342 


4537 


014352 


011714 


4538 


014354 


011670 


4539 


014356 


011730 


4540 


014360 


012116 


4541 






4542 


014362 


013142 


4543 






4544 


014364 


013072 


4545 


014366 


013354 


4546 


014370 


013474 


4547 


014372 


013774 


4548 


014374 


014134 


4549 






4550 






4551 






4552 






4553 


0U376 


012737 


4554 


014404 


012737 


4555 


014412 


010046 


4556 


014414 


010146 


4557 


014416 


010246 


4558 


014420 


010346 


4559 


014422 


010446 


4560 


014424 


010546 


4561 


014426 


017746 


4562 


014432 


010667 


4563 


014436 


012737 


4564 


014444 


000000 


4565 


014446 


000776 


4566 






4567 






4568 






4569 


014450 


012737 


4570 


014456 


016706 


4571 


014462 


005067 


4572 


014466 


005267 


4573 


014472 


001375 


4574 


014474 


012677 


4575 


014500 


012605 


4576 


014502 


012604 


4577 


014504 


012603 


4578 


014506 


012602 


4579 


014510 


012601 


4580 


014512 


C12600 


4581 


014514 


012737 


4582 


014522 


012737 


4583 


014530 


104401 


4584 


014532 


014550 



.-•THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;»BY THE "TRAP" INSTRUCTION. 



STRPAD: 



ROUTINE 

.WORD 

STYPE 

STYPOC 

$ TYPOS 

STYPON 

$TYPDS 



%TRAP2 
:CALl=TYPE 
;CALL=TYPOC 
: CALL = TYPOS 
;CALL=TYPON 
;CALL=TYPDS 



TRAP+K 104401) TTY TYPE OUT ROUTINE 



TRAP+2( 104402) 
TRAP+3(104403) 
TRAP+4( 104404) 
TRAP+5( 104405) 



TYPE OCTAL NUMBER (WITH LEAD INC ZE^OS) 

TYPE OCTAL NUMBER (NO LEADING ZEROS) 

TYPE OCTAL NUMBER (AS PER LAST CALL) 

TYPE DECIMAL NUMBER (WITH SIGN) 



SGTSWR ;;CALL~GTSWR TRAP+6( 104406) GET SOFT-SWR SETTING 



SCKSWR 
SRDCHR 
SRDLIN 
$RDOCT 
*RDDEC 



S8TTL POWER DOWN AND UP ROUTINES 



CALL=CKSWR TRAP*7( 104407) TEST FOR CHANGE IN SOFT-SWR 

CALL=RDCHR TRAP+1 0(1 04410) TTY TYPEIN CHARACTER ROUTINE 

CALL=RDLIN TRAP+11 (104411) TTY TYPEIN STRING ROUTINE 

CALL=RDOCT TRAP+1 2(1 0441 2) READ AN OCTAL NUMBER FROM TTY 

CALL=PDDEC TRAP+1 3(104413) READ A DECIMAL NUMBER FROM TTY 



014542 
000340 



000024 
000026 



; POWER DOWN ROUTINE 



164506 
000110 
014450 



014542 
000064 
000060 
000054 

164440 



000024 



000024 



SPWRDN: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
HALT 
BR 



*$ILLUP,WPWRVEC 
#340,3*PWRVEC+2 
RO. -(SP) 
R1.-(SP) 
R2.-(SP) 
R3.-(SP) 
R4.-(SP) 
R5.-(SP) 
3SWR.-(SP; 
SP.SSAVR6 
#$PWRUP.a#PWRVEC 

.-2 



;SET FOR FAST UP 
PRI0:7 

PUSH RO ON STACK 
PUSH R1 ON STACK 
PUSH R2 ON STACK 
PUSH R3 ON STACK 
PUSH R4 ON STACK 
PUSH R5 ON STACK 
PUSH aSWR ON STACK 
SAVE SP 

;SET UP VECTOR 



;;HANG UP 



.-POWER UP ROUTINE 

SPWRUP: MOV #$JLLUP.a#PWRVEC 



014376 
000340 



00002!, 
000026 



MOV 

CLR 

1$: INC 
BNE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
TYPE 

$°WRMG: .WORD 



$SAVR6.SP 
SSAVR6 
SSAVR6 
1$ 

(SP)+.aSWR 

(SP)+,R5 

(SP) +.R4 

(SP)+,R3 

(SP)+.R2 

(SP)+.R1 

(SP)*. RO 

#$PWRDN.a#PWRVEC 
#340.a#PWRVEC+2 

SPOWER 



;SET FOR FAST DOWN 
GET SP 

WAIT LOOP FOR THE TTY 
WAIT FOR THE INC 
OF WORD 

POP STACK INTO 3SWR 

POP STACK INTO R5 

POP STACK INTO R4 

POP STACK INTO R3 

POP STACK INTO R2 

POP STACK INTO R1 

POP STACK INTO RO 

;SET UP THE POWER DOWN VECTOR 

PRI0:7 
REPORT THE POWER FAILURE 
;POWER FAIL Mc'SSAGE POINTER 
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CZDHND.P11 27-DEC-78 15:28 POWER DOWN AND UP ROUTINES 

4585 014534 012716 MOV (PC)*. (SP) 

4586 014536 014560 SPWRAD: .WORD CKRST1 

4587 014540 000002 RTI 

4588 014542 000000 SILLJP: HALT 

4589 014544 000776 BR -2 

4590 014546 000000 SSAVR6: 0 

4591 014550 005015 047520 042527 SPOWER: .ASCIZ <1 5x1 2>' POWER 

4592 014556 000122 

^•593 .EVEN 



;;RESTART AT CKRST1 
; .-RESTART ADDRESS 

.' THE POWER UP SEQUENCE WAS STARTED 
; BEFORE THE POWER DOWN WAS COMPLETE 
;PUT THE SP HERE 



CZDHN-D MACY11 30A(1052) 27-DEC-78 
CZDHND.P1 1 27-DEC-78 15:28 



15:31 PAGE 104 

POWER DOWN AND UP ROUTINES 



M 8 



SEO 0103 



4594 
4595 
4596 
4597 
4598 
4599 
4600 

4601 014560 005767 005554 

4602 014564 001005 

4603 014566 005767 005560 

4604 014572 001004 

4605 014574 000167 165612 

4606 014600 000167 171266 

4607 014604 000167 170062 
4608 

4609 014610 005767 005524 

4610 014614 001005 

4611 014616 005767 005530 

4612 014622 001004 

4613 014624 000167 165552 

4614 014630 000167 171236 

4615 014634 000167 170032 
4616 
4617 
4618 
4619 
4620 
4621 
4622 
4623 
4624 
4625 
4626 
4627 
4628 
4629 
4630 
4631 
4632 
4633 
4634 
4635 
4636 
4637 
4638 
4639 
4640 
4647 
4642 
4643 
4644 
4645 

4646 014736 105767 

4647 014742 001010 

4648 014744 105167 

4649 014750 012767 000001 004550 



**************************************************************** 
COMMON DH11 SERVICE ROUTINES 

•a************************************************************** 

.-THESE ROUTINES DETERMINE RESTART ADDRESS AFTER SYSTEM ERROR 
;(8US ERROR, RSVD INSTR ERROR. OR POWER FAIL) 



CKRST1: TST 
BNE 
TST 
BNE 
JMP 
JMP 
JMP 



IS: 
2$: 



CKRST2: TST 
BNE 
TST 
BNE 
JMP 

1$: JMP 
2$: JMP 



DPFL6 
1$ 

RETFLG 
2$ 

RSTRTA 

EXPAT 

ECHO 

C^.-LC 
1$ 

REi.'lG 
2$ 

REST1 
EXPAT 
ECHO 



IN PATTERNS TEST ? 

BR IF YES 

IN ECHO TEST ? 

BR IF YES 

GO RESTART RELIABILITY TESTS 

GO TO PATTERNS TESTS 

GO TO ECHO TESTS 

;IN PATTERNS TEST ? 
;8R IF YES 
;IN ECHO TEST ? 
*8R IF YES 

[•GO RESTART RELIABILITY TESTS 
;G0 TO PATTERNS TESTS 
;G0 TO ECHO TESTS 



014640 


012711 


004000 




DHSET1: MOV 


*8IT11.(R1> 


014644 


004767 


004564 




JSR 


PC.CHPS2 


014650 


012711 


030100 




MOV 


#30100. (RD 


014654 


156711 


005264 




BIS8 


LINE. (R1 ) 


014660 


005067 


004716 




CLR 


RDONE 


014664 


012767 


030474 


013576 


MOV 


*RBUf .R8FPTR 


014672 


012767 


030474 


004704 


MOV 


#R8UF .RBFEND 


014700 


016705 


004670 




MOV 


CHRCNT.R5 


014704 


005405 






NEG 


R5 


014706 


060567 


004672 




ADD 


R5.R8FEND 


014712 


016761 


004652 


000004 


MOV 


CURLPR.LPR(RI) 


014720 


016761 


004650 


000010 


MOV 


CHRCNT.BOURU 


014726 


012761 


032754 


000006 


MOV 


#TBUf .CAR(R1) 


014734 


000207 






RTS 


PC 



.-THIS ROUTINE IS CALLED TO SET UP THE DH11 PARAMETERS PRIOR TO TEST 

.CLEAR THE DH11 UNDER TEST 
.GO LOCK OUT INTRS 
; ENABLE INTERRUPTS ON XMFT DONE 
.NON-EX MEM. DATA AVAIL, "OR SILO OVFLU 
.•SELECT THE LINE NO. 
.CLEAR SOFTWARE DONE FLAG 
.-SET UP RCVR BUFFER POINTER 
.MARK END OF THIS BUFFER 
.GET CHAR COUNT 
;MAKE IT POSITIVE 

.-LOAD THE LPR REG 
.LOAD THE BYTE COUNT REG 
.LOAD CURRENT ADDRESS REG 
.•RETURN 

.THIS ROUTINE IS CALLED TO SELECT A NEW LINE NO. BASED ON THE 
.•VALUE OF THE LINE SELECTION PARAMETER 



.•CALLING SEQUENCE : 



005203 

005175 
000001 



;JSR 
;BR 



SELINE: TST8 
BNE 
COMB 
MOV 



PC, SELINE 
1$ 



LINE+1 
1$ 

LINE*1 
#1.LINMSK 



; CALL THE ROUTINE 

.-EXIT BRANCH-ROUTINE MOVES THE RETURN 
;PC AROUND THIS BR IF MORE LINES ARE 
; YET TO BE TESTED 

FIRST TIME THROUGH FOR ANY TEST ? 

BR IF NOT 

SET ENTRY FLAG 

INIT SELECT TEST MASK TO TEST LINE 00 
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:31 PAGE 105 
POWER DOWN AND 



N 8 



UP ROUTINES 



SEQ 0104 



4650 

4651 

4652 

4653 

4654 

4655 

4656 

4657 

4658 

4659 

4660 

4661 

4662 

4663 

4664 

4665 

4666 

4667 

4668 

4669 

4670 

4671 

4672 

4673 

4674 

4675 

4676 

4677 

4678 

4679 

4680 

4681 

4682 

4683 

4684 

4685 

4686 

4687 

<.688 

4689 

4690 - 

4691 

4692 

4693 

4694 

4695 

4696 

4697 

4698 

4699 

470C 

4701 

4702 

4703 

4704 

4705 



014756 
014762 
014764 
014770 

014776 
015002 
015004 
015012 
01 5014 
015020 
01 5022 
015026 
015034 



015036 
015036 
015040 
015042 
015044 
015046 
015050 
015052 
015054 
015056 
015060 
015062 
015066 
015072 
015074 
015100 
015104 
015106 
015110 
015112 
015114 



015116 
015122 
015126 
015132 
015136 
015142 



105067 
000410 
105267 
116767 

006367 
001407 
036767 
001 764 
062716 
000402 
005067 
142777 
000207 



010046 
010146 
010246 
012500 
0125C1 
111000 
010002 
006202 
006202 
006202 
042702 
062702 
110221 
042700 
062700 
110011 
012602 
012601 
012600 
000205 



010067 
010167 
010267 
010367 
010467 
000207 











1 INF 


START WITH 1 INF #00 






cap 




GO 7FST FOR 1 INE #00 

VJ \J 1 L J 1 • wl» L i l*L WW 


\J\JJ 1 JH 




1 * • 


INCH 


LINE 


GENERATE NEW LINE NO 








MOVR 


1 INF tTFSTN 


MOVE CURRENT LINE # 










TO STESTN SO APT WILL RUN 


004524 






ASL 


LINMSK ', 


SHIFT SELECT MASK TO TEST NXT LINE 






BEQ 


3$ 


RETURN TO EXIT BRANCH - ALL LINES DONE 


004516 


004512 


2$: 


BJT 


LINMSK. LINSEL 


■IS TME LINE SELECTED FOR TEST ?? 






BEQ 


1$ 


•8R IF NOT 


000002 






ADD 


#2.<SP) 


•MOVE RETURN PC AROUND EXIT BRANCH 






BR 


4$ 


•RETURN TO TEST SELECTED LINE 


005116 




3$: 


CLR 


LINE 


;INIT ENTRY FLAG AND LINE NO. TO 000 
; JNJT LINE SELECT BITS IN "SCR" 
; RE TURN TO CALLING TEST 


000017 


004460 


4$: 


BICB 
RTS 


#17,3DHADR 
PC 



177770 
000060 

1 77770 
000060 



164040 
164036 
164034 
164032 
164030 



;THIS ROUTINE IS CALLED TO CONVERT EITHER THE "OH" NUMBER OR THE 
.••"LINE" NUMBER TO TWO ASCII CHARACTERS AND MOVE THEM INTO A 
.•PARTICULAR MESSAGE BUFFER FOR ERROR REPORTING 



.•CALLING SEQUENCE 



JSR 

ADDR1 

ADDR2 



SUNUM: 

MOV 
MOV 
MOV 
MOV 
MOV 
1 M0V8 
MOV 
ASR 
ASR 
ASR 
BIC 
ADD 
M0V8 
BIC 
ADD 
MOVB 
MOV 
MOV 
MOV 
RTS 



R5. SUNUM 



RO, -(SP) 

R1,-(SP> 

R2.-CSP) 

CR5)*,R0 

(R5)+.R1 

CRO) ,R0 

RO, R2 

R2 

R2 

R2 

#1 77770. R2 

#60 ,R2 

R2,(R1>* 

#1 77770, RO 

#60. RO 

R0.(R1) 

<SP)+.R2 

(SP)+.R1 

(SP>*.R0 

R5 



CALL TO THIS ROUTINE 

ADDRESS OF THE NUMBER TO BE CONVERTED 
ADDRESS OF THE MSG BUFFER SLOT 



.PUSH RO ON STACK 
;PUSH R1 ON STACK 
;PUSH R2 ON STACK 
GET ADDRESS OF NUMBER 
GET MSG BUFFER ADDR 
GET NO. TO BE CONVERTED 
SAVE IT IN R2 
SHIFT MSD TO LSD POSITION 



CLR JUNK BITS 

MAKE IT ASCII 

PUT IT IN MSG BUFFER 

CLR JUNK FROM LSD 

MAKE IT ASCII 

PUT LSD IN THE BUFFER 
POP STACK INTO R2 
POP STACK INTO R1 
POP STACK INTO RO 

RETURN TO CALLER 



;THIS ROUTINE IS CALLED TO SET UP THE ERROR INFORMATION IN THE 
.•MESSAGE BUFFERS 



SUER2: 
SUER1 : 



MOV 
MOV 
MOV 
MOV 
MOV 
RTS 



R0.5REG0 
R1.SREG1 
R2.SREG2 
R3.SREG3 
R4.SREG4 
PC 



.-STORE THE REGS IN CORE 



;RETJRN TO REPORT ERROR 



015210 012701 
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A 706 

4 708 
A 709 

4/10 015144 010046 

4711 015146 005005 

4712 015150 012702 
4 71? 015154 005022 
4714 015156 005203 
4/15 015160 020327 
4716 015164 001373 
471/ 015166 013746 

4718 015172 012737 

4719 015200 012703 

4720 015204 012702 
4721 
4722 
4723 

4724 015214 005711 

4725 015216 005761 

4726 015222 052711 
4727 

4728 015226 052711 

4729 015232 052711 

4730 015236 032711 

4731 015242 001410 
4732 
4733 
4734 
4735 
4736 
4737 

4738 015254 001003 

4739 015256 042711 

4740 015262 01 01 22 
4741 

4742 

4743 015264 020127 

4744 015270 001406 

4745 015272 062701 

4746 015276 000746 
4747 

4748 015300 012716 

4749 015304 000002 
4750 

4751 
4752 

4753 015306 012737 

4754 015314 012701 

4755 C15320 005711 

4756 015322 010123 
4757 

4758 015324 020127 

4759 0153*0 001406 

4760 015332 062701 

4761 015336 000770 



15:31 PAGE 106 
POWER DOWN AND 



B 9 



UP ROUTINES 



SEG 0105 



;TH1S ROUTINE AUTOSIZES THE SYSTEM TO DETERMINE THE ADDRESSES AND 
.VECTORS OF THE DH1TS AND DMII-BB'S. 



015244 052711 
015250 032711 





AUTOSZ 


MOV 




021750 


m 


CLR 


R3 




MOV 


#DHADRS.R2 




?S$: 


CLR 


(R2)* 






INC 


R3 


000102 




CMP 


R3.#102 






BNE 


25$ 


000004 




MOV 




015*.00 


000004 


MOV 


#4$.a#<, 


022042 




MOV 


#DMADRS,R3 


021750 




MOV 


#DHADRS R? 


160020 




MOV 


#1 60020. R1 




11: 


TST 


(R1 ) 


000016 




TST 


16(RD 


r\r\ / r\f\f\ 

004000 




BIS 


#4000. (R1) 


001000 




BIS 


#1000. (R1) 


002000 




BIS 


#2000. (R1) 


003000 




31 T 


#3000. (R1 ) 






BEQ 


3$ 


000400 




BIS 


#400. CRD 


002400 




BIT 


#2400. (R1 ) 


UU1000 




BNE 


3$ 




BJC 


#1000. (R1 ) 






MOV 


R1 .(R2)+ 


163760 


3$: 


CMP 


R1, #163760 


000020 




BEQ 


5$ 




ADD 


#20 R1 






BR 


1$ 


015264 


4$: 


MOV ' 


#3$,(SP) 






RTJ 




;TEST FOR DM11 


BB ADDRfcSS 


015340 


000004 5$: 


MOV 


#6$.a#4 


■ f\jj\j\j 




MOV 


M -1 7ACAA #«i 

#1 70500, R1 




21$: 


rsr 


(R1) 






MOV 


Rl.(R3)» 


170670 


23$: 


CMP 


R1 .#170670 


000010 




BEQ 


22i 




ADD 


#10. R1 






BR 


21$ 



CLEAR DH TABLES. 

HAVE WE CLEARED ALL ENTRIES? 
BRANCH IF NOT. 
SAVE TRAP VECTOR. 

SETUP FOR NON-EXISTENT MEMORY TRAP. 
SETUP DM ADDRESS TABLE POINTER. 
SET UP DH ADDRESS TABLE POINTER. 

R1-FIRST ADDRESS TO BE TESTED. 

SEE IF ADDRESS IN R1 RESPONDS. 

CHECK TO SEE IF DEVICE IS MODULO 20. 

IF IT IS. CONTINUE 

AND CHECK TO SEE 

IF THIS ADDRESS CONTAINS 

A DH-11. 

CHECK TO INSURE THESE BITS SET. 
IF NOT . BRANCH. 

SET THE MAINTENANCE BIT. THE NON- 
EXISTFNT MEMORY BIT AND THE CLEAR 
NON-EXISTENT MEMORY INTERRUPT BIT. 
IS THIS A DH-11? (BITS 8 AND 10 SHOULD 
CLEAR IF THIS IS A DH11.) 

IF NOT, CHECK TO SEE IF THIS IS A DM11-66. 

CLEAR MAINTENANCE BIT. 

SAVE THE ADDRESS IN THE DH ADR TABLE . 



.HAVE WE REACHED THE TOP OF THE FLOATING ADDRESSES 

;IF YES. GET OUT. 

;IF NOT, UPDATE ADDRESS AND 

;G0 CHECK IT. 

;IF DH ADDRESS DOES NOT RESPOND. GO TO 3$. 



SETUP FOR NON-EXISTENT MEMORY TRAP. 
R1=FJRST ADDRESS TO BE TESTED. 
SEE IF ADDRESS RESPONDS. 
IF IT DOES. THIS IS A DM11-BB. 

SO SAVE THE ADDRESS. 

HAVE WE REACHED THE TOP OF THE DMTT ADDRESSES' 



IF YES,. -GET- OUT. 
IF—ROT. UPDATE ADDRESS AND 
GO CHECK IT. 
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6$: 



C 9 



SEO 0106 



C7t>? 








£76* 

H' UJ 


01 «H£0 


ni 371 A 




*♦ f OS 




A(VV\AT 

V\JV\J\Jc 




4765 








H r DO 




01 3A*7 


onnoot 


Hf Of 






n?i 750 


A 7 AO 
*♦ ' oo 


w 1 J JJU 


00100* 






01 5 W) 
v i j joy 


10££01 


03571 2 


A 770 


015 7 >f>4 


000000 




4771 








4772 


01 5366 


00620? 




U77\ 


015*70 


oosooo 




4774 


015 372 


006100 

v\AJ I VV 






015374 


005200 

V V J c v v 




A 776 


01 5376 


00530? 

VV J JVC 




4777 


015400 


005702 

VV «* ' VL 




4778 


015402 


001373 

VV 1 J' J 




4779 


01 5404 


010067 

V ' vvVJ i 


004526 


4780 








4781 








4782 








4785 


015410 


012702 


021750 


4784 


01 5414 


012705 

V ' C f V-* 


022006 

VC C V w 


4785 


015420 


012737 


000340 


4786 


015426 


012737 


015536 


4787 


015434 


012703 

V < C • V J 


000300 

V VV J VV 


4788 


015440 


012704 


000302 

V V V Jvl 


4789 








4790 


015444 


0104^3 

V 1 V~ C 




4791 








4792 


015446 


012724 


000004 

VV vvv** 


4793 


015452 


022324 




4794 


015454 


020427 


001 000 

VV • wv 


4795 








4796 


015460 


101771 




4797 








4798 


015462 


005712 




4799 


01 5464 


001441 




4800 








4801 


015466 


005067 


1 62504 


4802 


015472 


052772 


001 000 

W 1 V w 


4803 


015500 


052772 


000300 

V V \J -* VV 


4804 








4805 


015506 


005000 




4806 








4807 


015510 


005200 

w w 




4808 


015512 


001 376 




4809 


015514 


104401 


025741 

VC J ' ~ \ 


4810 


015520 


052772 


004000 


4811 


015526 


042772 


001000 


4812 


015534 


000752 




4813 








4814 


015536 


011601 




4815 


015540 


042701 


000007 


4816 


015544 


010125 




4817 


015546 


022626 





22$: 



7%: 
8$: 



MOV 


#23$. (SP) 






nu V 


\ Jr / ▼ , OIWH 


Ql IP 






74 


T VPF 




UA 1 T 
nnL 1 




ASR 


R2 


CLR 


R0 


R0L 


<i0 


INC 


R0 


DEC 


R2 


TST 


R2 


8NE 


8$ 


MOV 


R0,$DHSEL 



000C22 
000020 



; F I ND DH VECTOR 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



9$: 



10$: 



000000 
000000 



11$: 



000000 
000000 



12$: 



MOV 

MOV 
CMP 
CMP 

BL0S 

TST 
BE0 

CLR 
BIS 
BIS 

CLR 

INC 

BNE 

TYPE 

BIS 

BIC 

BR 

MOV 
BJC 
MOV 
CMP 



#DHADRS.R2 

#DHVEC.R5 

#340.a#IOTVEC+2 

#12$.a#I0TVEC 

#300.R3 

#302. R4 

R4,(R3)* 

#4.(R4)+ 

(R3H.(R4>* 

R4.#1000 



9$ 

(R2) 
13$ 

PS 

#1000, 3(R2> 
#300.a(R2) 

R0 

R0 

11$ 

,MSG2 

#4000. S(R2) 
#1000, 3(R2) 
10$ 

(SP).R1 
#7,R1 
R1,(R5)+ 
(SP)*,(SP>+ 



;IF DM ADDRESS DOES NOT RESPOND, GO TO 23$. 



RESTORE TRAP VECTOR. 

HAVE WE FOUND ANY DH1 1 ' S AT ALL? 

IF YES, BRANCH 

NO DHII'S WERE FOUND. 



R2 NOW CONTAINS THE NUMBER 
OF DH'S FOUND. 
FILL RO WITH TS 
CORRESPONDING TO 
THE NUMBER OF DH'S 
FOUND. 

$DHSEL CONTAINS THE DH SELECTION PARAMETER. 
IE. ALL DH'S FOUND WILL BE TESTED. 



SETUP POINTER TO BEGINNING OF Dh 
ADDRESS TABLE AND VECTOR TABLE. 
SET I0T TRAP PRIORITY TO 7. 
SETUP I0T TRAP VECTOR. 
START OF FLOATING VECTORS 
PC OF I0T INSTR. 

FILL VECTOR AREA WITH ADDRESS 
OF NEXT INSTR (.+2) 
NEXT INSTRUCTION IS AN I0T TRAP. 
UPDATE R3+R4. 

HAVE WE REACHED TO TOP OF THE 

VECTOR SPACE? 

IF NOT. REPEAT PROCESS. 

HAVE WE CHECK ALL DH'S? 

IF YES, GET OUT * CHECK FOR DM11 SB'S VECTORS. 

ZERO CPU PRIORITY. 
SET MAINTENANCE BIT 
ATTEMPT TO CAUSE RECEIVER 
INTERRUPT. 



.-WAIT... 

.'ERROR MSG-NO DH RECEIVER INTERRUPT OCCURRED. 

;D0 A MASTER CLEAR 

; CI EAR MAINTENANCE BIT 



CLEAR GARBAGE. 
SAVE" VECTOR ADDRESS. 
POP STACK 
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D 9 



SEG 0107 



A.B1 S 


ni ccca 
U I 5; i\) 


A1 571 X. 
U I C ' lo 


m c/ 






MAW 

nuv 


40 1 Ac f ca\ 
if \ u», lor; 


/ B1 Q 


ai ccca 


n<;0770 
Ujcv a 


A\AA AAA 


AAAAAA 
UUUUUU 




Q T C 


HI AAA li/DI^ 


/ B5A 


ai cc/lo 
Ul j^O£ 


0/ 5775 
VHd'JC 


AA1 AAA 
UU I UUU 








#1000,a(R2)+ 


HOC 1 


U I JJOO 


aaaaao 








D T T 


/ B05 


























, r J NU 


On I I bo 


VfcL IUR5: 


'toe'* 
















Z.B5C 

HOC J 


ai cc7a 


m 57r\o 
U I cryJc 






1 7* . 


MOV/ 

nuv 


ffUnAL'Rb ,Hc 


/,85/l 


ai cc 7/. 


ai 37ac 


A 5 5 1 AA 






PIUV 


MPtMWCA DC 

wunvt L ,WD 


/.B57 

■tO£l 


m ^aaa 

U I jOUU 


A1 5777 
U IC ' J A 




AAAA5A 




nuv 


w I o»,ati7iU I Vt L 


















U I JOUO 


UUjr I c 






i/t. 
I *»» . 


TC T 


\Hc) 




m <»ai n 
u i jo i <J 


UU I < t*f I 








OCA 

ot U 


1 7C 
I A * 


Z.R71 


U 1 JO 1 c 


0acaa7 

UU jUO' 


1 api i< n 

I Oc I cu 






n o 
LLK 


DC 


iR"*.? 

SO JC 


0i 5616 

U 1 JO 1 o 


05?77? 
UJC ' ' c 


001 ono 


AAAAAA 
\JWW\J 




a i c 


J»1AAA a/DP^ 


40J J 


f)1 5A?Z. 
U I jOc*» 


05P77? 


nnn7AA 

UWjUU 






ore 


*7AO a/B51 


AOTA 


01 5A7? 










LLK 


DA 


A.R75 
















HOjO 


01 5A7/. 
U I jOjh 


nn5?oo 














U I JOJU 


nm ^7A 








owe 




£R7R 


01 56£0 


10££01 

1 VS4U 1 


0?A005 






T VDC 




£R79 


0l 56££ 

V 1 JOM*t 


05P77? 


00£000 


000000 

VvvUUv 




Ol 3 


BLOOD afDPI 




01 5iA5? 

U 1 JOJc 


0^?77? 


O01 Ooo 


oo, ">0o 




p. i r 

Oi L 


w iuuu,avKd^ 


£R£1 


01 5660 


00075? 

UUVf JC 








On 


lit 

1 


£R£? 

HO**c 
















/.OA 7 


01 566? 
U I JQDc 


01 1 A01 

v I OU I 






1 At • 
I o* ■ 


MOW 

nuv 


fCDi D1 


AS/./ 
HOHS 


01 566Z. 


1 A?701 

1 Oc A V/ I 


AAAAAA. 






sue 


*A D1 


AftZ.5 


01 5670 


0101?5 








MOW 

nuv 


D1 /D<!U 


A OA A 


01567? 


0??6?6 

V/ccOcO 








AMP 


V j"a T , \orJ ▼ 


£R£7 

"TOM f 


01 SA74 


01?716 


01 5A06 






MAW 

nuv 


* I *»• , V or; 




m S700 


05?77? 

U JC ffC 


00£000 


000000 




QIC 
Oi O 


r?WuU ( 0) V n£ ) 


£8£9 


015706 


0£2732 


001000 






8IC 


#1000.3(R2>* 


£850 
















01571? 


00000? 








PT f 
n I i 




£R5? 














£857 


01S714 


m?777 

\J \ C 1 JF 


01 1076 

Ul 1 v 1 O 


0000?0 


1 7t • 


MAW 

nuv 


*»olUrC , i U 1 ' 




01 57?? 


01 ?600 

V 1 C Uvv 








MOW 
nuv 


kpu on 

V o" / T ,KU 


£855 


0157?£ 




000^00 






MAW 

nuv 


•TAA D7 


£857 


0157^0 


01 P704 


0007.0? 

vUv Juc 






MOV 


#302, R£ 


HO J f 

£858 


01573£ 








1Rt • 


MAW 

nu v 






01 5736 

X/ \ J f JO 












■tow 


01 573/ 


000000 






MAW 

nuv 




£861 


01 57£? 


0??3?£ 








AMD 


(R3)+.(R£)* 


HOUC 


01 57££ 

Ul Jr H*t 


0?0£?7 


001 noo 








DA /»1AAA 


£863 


015750 


101 771 

IV''' 1 








pi n< 

OLUO 


I 0* 


£86£ 












£865 


01575? 


013701 


0??006 

uc_wU 






MAW 

nuv 


2w»nwuPr D1 


£866 


015756 


005737 


022010 






TST 


a*DHVEC+2 


£867 


015762 


001 £03 








BEQ 


26$ 


£868 


01576£ 


163701 


022010 






sue 


3#DHVEC+2 / Rl 


£869 














£870 


015770 


005£01 








NEG 


R1 


£871 


015772 


010167 


00£136 




26$: 


MOV 


R1.ADRVEC 


£872 


015776 


012777 


000002 


1637 34 




BIT 


#8IT1,aSWR 


£873 


01600£ 


001££1 








BEQ 


20$ 



SETUP FOR RETURN. 
DO A MASTER CLEAR 
CLEAR MAINTENANCE BIT. 



SET POINTERS TO BEGINNING OF 
ADR TABLE £ VECTOR TABLE. 
SET IOT TRAP VECTOR. 

HAVE WE CHECKED ALL DM'S? 
If YES. GET OUT. 
ZERO CPU PRIORITY 
SET MAINTENANCE BIT. 
ATTEMPT TO CAUSE INTERRUPT. 



;WAIT 

; ERROR MSG - NO DM11 -68 INTERRUPT OCCURRED. 
;CLEAR BITS PREVIOUSLY SET. 
.•CLEAR MAINTENANCE BIT. 



CALCULATE VECTOR ADDRESS. 

SAVE VECTOR ADDRESS. 

POP STACK. 

SETUP FOR RETURN. 

CLEAR BITS PREVIOUSLY SET. 

CLEAR MAINTENANCE BIT AND 

POINT TO NEXT DM11-BB ADDRESS. 



: .-RESTORE IOT VECTOR FOR SCOPE ROUTINE. 
.•RESTORE RO. 

.-START OF FLOATING VECTORS. 



FILL VECTOR AREA WITH ADDRESS OF NEXT 

INSTRUCTION (.*2>. 

NEXT INSTRUCTION IS A HALT. 

UPDATE R3 6 R£. 

ARE WE DONE? 

IF NOT. REPEAT UNTIL ADDRESSES 

377 TO 777 ARE DONE. 

LET R1 POINT TO 1ST DH VECTOR ADDRESS. 

IS THERE MORE THAN ONE ENTRY? 

BRANCH If NO. 

DETERMINE NUMBER OF ADDRESSES 

BETWEEN DH VECTORS (10(8) OR 20(8)). 

MAKE IT POSITIVE. 

SAVE THAT NUMBER. 

SHOULD DEVICE MAP BE TYPED OUT? 

If NOT. RETURN. 
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E 9 



4R74 
HO/ S 


m aooa 


"i OZ.401 
I USHU I 


SO' J 


U l OU I u 


UcOVjc 


4R7A 
SO' o 


01 Am 3 


01 3701 

U I c / U I 


4877 

SO' ' 


oiaoia 

U 1 OU 1 o 


01 5705 
U I c f \JC 


4878 

SOf o 


U I OUcc 


01?707 


487Q 

SOl 7 


oi ao?a 

U 1 OUcO 


01 .J704 


/oaf) 


01^07? 

U I OU JC 


oo^on*; 


/OBI 

soo i 






SOOt 


01 AO 74 

U I OUjS 


01 51 A A 
U I c I SO 


A OO"? 

soo j 


\) I OUjO 


104407 
I USSU j 


A BO/ 

soos 


01 6040 
u i ousu 


00A 
uuo 


/ pps 

*»00 v 


016041 


001 
uu i 


/.pox, 

HOOD 


m 604? 


01 ??4A 


/op 7 


01 6D44 


104407 


/ ppp 


016046 

\J 1 O\^*0 


00*! 


AQOQ 


V I DUS / 


000 


A Hon 


016050 


104401 




016054 


01?746 

U I CJSO 


*f07t 


01 60*56 


104407 

I USSVJ J 


4897 


016060 


006 


AO OA 


W 1 uuu 1 


001 




01606? 

W 1 UVAJC 


104401 


4896 


016066 


01?446 
104403 


4897 


016070 


4898 


01607? 

W I WW f c. 


005 


4899 


016073 

V 1 WW ' -J 


000 

VVV 


4900 

■f 'WW 


W 1 w * *t 


104401 


4901 


016076 


001 ??7 


4902 


016100 


00571 1 




01610? 


001 754 


4904 


016104 


104401 


4905 


01 ^i in 


000?07 


4906 






4907 






4908 






4909 






4910 


01611? 


104401 


491 1 


0161 14 


0P541 7 


4912 


016116 


10441? 


4913 


0161?0 

\J IU 1 Cv 


01?600 

W 1 CUW 


4914 


0161?2 

\J l U >Cl 


001407 

WW ' lUf 


4915 


016124 

W l W ■ C"t 


0?2700 

WC C f WW 


4916 


016130 


001406 

WW 1 ~ WW 


4917 


01613? 

W ■ w 1 -JC- 


0??700 

VCl r WW 


4918 


016136 

V IU 1 S\J 


001403 

WW 1 ~ w_y 


4919 


016140 


000764 

WWW » W"t 


4920 


016142 


012700 

W 1 C f WW 


4921 


016146 


005067 

WW ^ WW 


4922 


016152 


005067 

WW /W 


4923 


016156 


000207 


4924 






4925 


016160 


012767 


4926 


016166 


000167 


4927 


016172 


012700 


4928 


016176 


003067 


4929 


016202 


005067 



SEQ 0108 



021750 
022006 
022042 
022100 



19$: 



026046 



026046 



001227 



20$: 



TYPE 

DEVMAP 

MOV 

MOV 

MOV 

MOV 

CLR 

MOV 

TYPOS 

.BYTE 

• BYTE 

MOV 

TYPOS 

.BYTE 

.B/TE 

TYPE 

MOV 

TYPOS 

.BYTE 

.BYTE 

TYPE 

MOV 

TYPOS 

.BYTE 

.BYTE 

TYPE 

$CRLF 

TST 

BNE 

TYPE 

RTS 



0DHADRS.R1 

#DHVEC,R2 

#DMADRS,R3 

#DMVEC.R4 

R5 

(R1)+.-(SP) 

6 
1 

(R2)+.-(SP) 

5 
0 

.SPACE 
(R3)+.-(SP) 

6 
1 

.SPACE 
<R4)».-(SP) 

5 
0 



(R1) 
19$ 
.$CRLF 
PC 



;THIS ROUTINE IS USED TO ACCEPT 
; T ELETYPE 

INPARA: TYPE 
y/CWC 
RD0CT 



TYPE0UT MAP OF DH & DMH-BB'S 
POUND. 

R1=8EGINNING OF DH ADDRESS TABLE. 
R2 r 8EGINNING OF DH VECTOR TABLE. 
R3=BEGINNJNG OF DM1 1 -88 ADDRESS TABLE, 
R4=8EGINNING OF DM1 1-38 VECTOR TABLE. 
CLEAR TABLE LINE COUNTER 

;M0VE DATA TO BE TYPED 
; T YPE DATA 



.-MOVE DATA TO BE TYPED 
; T YPE DATA 



.-MOVE DATA TO BE TYPED. 
; T YPE DATA. 



.-MOVE DATA TO BE TYPED. 
.TYPE DATA. 



; TYPE A CARRIAGE RETURN & LINE FEED. 

.-HAVE WE TYPED ALI DH ENTRIES? 
;If NOT. DO IT AGAIN. 

;IF YES. GO BACK TO MAIN PROGRAM. 

INPUT PARAMETERS FROM THE CONSOLE 



"ASK FOR NO. ADDRESSES BETWEEN VECTORS" 
READ OCTAL NO. FM TTY 







MOV 


(SP)+,R0 


,-GET THE NO. HE TYPED 


000010 




be a 


3$ 


;8R IF HE TYPED <CR> 




CMP 


#10, RO 


;10(8) ADDRESSES BETWEEN VECTORS ? 


000020 




BE0 


4$ 


BR IF YES 




CMP 


#20. RO 


•20(8) ADDRESSES BETWEEN VECTORS ?? 






BEQ 


4$ 


;BR IF YES 


000020 




BR 


INPARA 


•ASK ALL OVER AGAIN 


3$: 


MOV 


#20. RO 


SET UP CONSTANT FOR 20(8) ADDRESSES 


004166 


4$: 


CLR 


DPFLG 


CLEAR PATTERNS TESTS FLAG 


004174 




CLR 


RETFLG 


INIT ECHO TEST RETURN FLAG 






RTS 


PC 


•RETURN TO CALLER 


W7777 003520 


INPARX: 


MOV 


#-1.VCFLG 


SET START AT 200 FLAG 


163422 




JMP 


BEGINA 


GO START UP 


177777 


INPARC: 


MOV 


#-1.R0 


•SET FLAG IN RO 


003504 




CLR 


VCFLG 


INIT VECTOR SET UP FLAG 


0C4132 




CLR 


DPFLG 


CLEAR PATTERNS TESTS FLAG 
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4930 


016206 


005067 


004H0 






CLR 


RETFLG 


4931 


016212 


000167 


163376 






JMP 


BEGINA 


4932 
















4933 


016216 


01 370 1 


021 750 




INPAR: 


MOV 


SltfDHADRS.R 1 


4934 


016222 


032777 


000001 


162710 




BIT 


ffBITO.aSWR 


4935 


016230 


001405 








BEQ 


2$ 


4936 


016232 


104401 






1$: 


TYPE 




4937 


016234 


024726 








INMSG1 




4938 


016236 


104412 








RDOCT 




4939 


016240 


012601 








MOV 


(SP)+.R1 


4940 


016242 


001403 








BEQ 


INPAR1 


4941 


016244 


004767 


000176 




2$: 


JSR 


PC.CHKADR 


4942 


016250 


000770 








BR 


1$ 


4943 
















4944 


016252 


013701 


022006 




INPAR1 : 


MOV 


SWfDH.EC.R1 


4945 


016256 


032777 


000001 


162654 




BIT 


ftBl T0,3SWR 


4946 


016264 


001405 








BEQ 


2$ 


4947 


016266 


104401 






1$: 


TYPE 




4948 


016270 


024772 








INMSG2 




4949 


016272 


104412 








RDOCT 




4950 


016274 


012601 








MOV 


(SP) + .R1 


4951 


016276 


001403 








BEQ 


INPAR3 


4952 


016300 


004767 


00C306 




2$: 


JSR 


PC ,CHKVCT 


4953 


016304 


000770 








BR 


1$ 


4954 
















4955 


016306 


/NaT y -7; 

005767 


004040 




INPAR3: 


TST 


RETFLG 


4956 


016312 


001402 








BEQ 


1$ 


4957 


016314 


000167 


166420 






JMP 


ECH02 


4958 


016320 


005767 


004014 




IS: 


TST 


DPFLG 


4959 


016324 


001402 








BEQ 


2$ 


4960 


016326 


000167 


167606 






JMP 


EXPAT 2 


4961 


016332 


01 3701 


022 '36 




2$: 


MOV 


SW$DHSEL.R1 


4962 


0 1 6336 


005700 








TS T 


RO 


4963 


016340 


100404 








BMI 


4$ 


4964 


016342 


032777 


000001 


162570 




BI T 


081 T0,3SWR 


4965 


016350 


001405 








BEQ 


3$ 


4966 


016352 


104401 






4$: 


TYPE 




4967 


016354 


025041 








INMSG3 




4968 


016356 


104412 








RDOCT 




4969 


016360 


012601 








MOV 


(SP)+,R1 


4970 


016362 


001402 








BEQ 


INPAR4 


4971 


016364 


010167 


003132 




3$: 


MOV 


R1 .DHSEL 


4972 


016370 


012767 


1 77777 


003126 


INPAR4: 


MOV 


#-1 ,LINSEL 


4973 
4974 


016376 


032777 


000001 


162534 




BIT 


*8IT0,aSWR 


016404 


001407 








BEQ 


1$ 


4975 


016406 


1 04401 








TYPE 




4976 


A1 Z / 1 A 

016410 


025355 








JNMSGA 




4977 


016412 


104412 








RDOCT 






J I D*» I H 










P1UV 


V Jr J ♦ ,H 1 


4979 


016416 


001402 








BEQ 


1$ 


4980 


016420 


010167 


003100 






MOV 


R1.LINSEL 


4981 


016424 


032777 


000400 


162506 


1$: 


BIT 


#eiT8,aswR 


4982 


016432 


001403 








BEQ 


EXPAR 


4983 


016434 


104401 








TYPE 




4984 


016436 


025305 








JNMSG7 




4985 


016440 


000000 








HALT 





INIT ECHO TEST RETURN FLAG 
GO ASK FOR SELECT PARAMETER 

MOVE ADDRESS OF FIRST DH INTO R1 . 
ARE PARAMETERS TO BE INPUT MANUALLY? 
BRANCH IF NOT. 
ASK FOR DEVICE ADDRESS 

READ IN WHAT IS TYPED 
GET THE NO. HE TYPED 
BR IF DEFAULT 

GO CHECK VALIDITY OF THE ADDR 
ERROR BRANCH 

MOVE FIRST DH VECTOR INTO R1 . 

ARE PARAMETERS TO BE INPUT MANUALLY? 

BRANCH IF NOT. 

ASK FOR VECTOP ADDRESS 

READ IN WHAT HE TYPES 
GET THE ADDRESS 
8R IF DEFAULT 

GO CHECK VALIDITY OF VECTOR 
ERROR BRANCH 

LINE ECHO TESTS ? 
eR IF NOT 

RETURN TO LINE ECHO TESTS 
DATA PATTERNS TESTS ACTIVE ?? 
:8R IF NOT 

GO BACK TO PATTERNS TESTS 

MOVE DEVICE SELECTION PARAMETER INTO R1 . 

START AT 210? 

BRANCH IF YES. 

IS PARAMETER TO BE INPUT MANUALLY? 
BRANCH IF NOT. 

ASK FOR DEVICE SELECTION PARAMETER 

READ IN WHAT HE TYPES 
GET THE SELECT PARAMETER 
:8R IF DEFAULT 

SET UP DH11 SELECTION PARAMETER 
INIT FOR ALL 16. LINES 

IS LINE SELECT PARAMETER TO BE INPUT MANUALLY 
BRANCH IF NO. 

ASK FOR LINE SELECT PARAMETER 

READ WHAT HE TYPES 

GET IT OFF STACK 

8R IF DEFAULT 

SET LINE SELECT PARAMETER 

HALT AFTER SET UP ?? 

BR IF NOT 

TYPE CONTINUE MESSAGE PRIOR TO HALTING 
DEPRESS CONTINUE TO RESUME TESTING 
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fZDHND. 


P11 27-DEC-78 


15:28 


POWER 


DOWN AND 


UP ROUTINES 




sea 0110 


4986 
4987 


01644? 


000167 


163640 


EXPAR: 


J MP 


START2 


GO START UP THE PROGRAM 




4988 


















4989 




0201 ?7 


160020 


CHKADR 


: CMP 


R1 .#160020 


IS ADDRESS ABOVE OR EQUAL TO LOW LIMIT 




4990 


016452 


002001 

\J\J C, \J\J I 






BGE 


1$ 


BR IF YES 




4991 


016454 


000453 






BR 


4$ 


BR IF fJOT 




499*: 


016456 


020127 

vC VIC' 


160420 


1$: 


CMP 


RI ,#160420 


IS IT BELOW THE HIGH LIMIT 9 




4993 


016462 


002401 






BLT 


2$ 


BR IF YES 




4994 


016464 


000447 






BR 


4$ 


BR IF NOT 




4995 


016466 


032701 


000017 


2$: 


BI r 


♦17. R1 


•CORRECT BOUNDARY 7 


- 


4996 


016472 


001044 






BNE 


4$ 


■8R IF NOT 




4997 


016474 


062716 


000002 




ADD 


#2.(SP) 


MOVE RETURN PC AROUND ERROR BRANCH 




4998 


016500 


005767 


003646 




TST 


RETFLG 


ARE WE IN ECHO TESTS 0 




4999 


016504 


001403 






BEQ 


21$ 


BR IF NOT 




5000 


016506 


010167 


003002 




MOV 


R1 . DHADR 


•SET UP DH11 DEVICE ADDRESS 




5001 


016512 


000436 






BR 


5$ 


CONTINUE 




5002 


0165 1 4 


005767 


003620 


21$: 


TST 


DPFLG 


■PATTERNS TESTS ACTIVE "»? 




5003 


016520 


001403 






BEQ 


22$ 


8R IF NOT 




5004 


016522 


010167 


002766 




MOV 


RI ,DHAI/R 


SET UP DEVICE ADDRESS 




5005 


016526 


000430 






BR 


5$ 


•CONTINUE 




5006 


016530 


0 1 2702 


021606 


22$: 


MOV 


#DHADT8,R2 


•POINT TO BEGIN OF ADDR TABLE 






016534 


032777 


000001 162376 




BIT 


#8IT0.8SWR 


ARE WE AUTOS I ZING? 




5008 


016542 


001011 






BNE 


3$ 


•BRANCH IF NOT. 




5009 


016544 


012703 


021750 




MOV 


#DHADRS,R3 


POINT TO BEGINNING OF AUTOSIZER 




5010 














DH ADDRESS TABLE. 




5011 


016550 


016704 


003362 




MOV 


$DHSEL.R4 




5012 


016554 


012322 




6$: 


MOV 


(R3)+.(R2>+ 


MOVE CONTENTS OF AUTOSIZER DH TABLE 




501 3 














TO THE TABLE USED BY PROGRAM. 




5014 


016556 


006204 






ASR 


R4 




5015 


016560 


005704 






TST 


R4 


HAVE WE MOVED ALL TABLE ENTRIES" 




5016 


016562 


001374 






BNE 


6$ 


BRANCH IF NOT — ONE MORE TIME. 




501 7 


016564 


000411 






BR 


5$ 


RETURN TO INPUT ROUTINES. 




5018 


016566 


010122 




3$: 


MOV 


R1,(R2)+ 


SET UP A TABLE ENTRY 




501 9 


016570 


062701 


000020 




ADD 


#20, R1 


■GENERATE NEXT DH11 ADDR 




5020 


016574 


022702 


021646 




CMP 


#DHADT8+40,R2 


;END OF TABLE ? 




5021 


016600 


001372 






BNE 


3$ 


■BR IF NOT 




f ATI 

5022 


016602 


000402 






BR 


5$ 


•RETURN TO INPUT ROUTINES 




5023 


016604 


""04401 




4$: 


TYPE 




TELL HIM HE GOOFED 




5024 


016606 


025112 






INMSG4 






5025 
5026 


016610 


000207 




5$: 


RTS 


PC 


RETURN TO INPUT ROUTINES 




5027 


016612 


020127 


000300 


CHKVCT 


: CMP 


R1 ,#300 


IS ADDRESS ABOVE OR EQUAL TO LOW LIMIT 




5028 


016616 


002001 






BGE 


1$ 


•BR If YES 




5029 


016620 


000452 






BR 


4$ 


BR IF NOT 




5030 


016622 


020127 


001 000 


1$: 


CMP 


R1,#1000 


IS IT BELOW THE HIGH LIMIT? 




5031 


016626 


002401 






BLT 


2$ 


BR IF YES 




5032 


016630 


000446 






BR 


4$ 


•BR IF NOT 




C077 

5033 


016632 


032701 


000007 


2$: 


BIT 


#7.R1 


CORRECT BOUNDARY ? 




5034 


016636 


001043 






BNE 


4$ 


8R IF NOT 




5035 


016640 


062716 


000002 




ADD 


#2,(SP) 


MOVE RETURN PC AROUND ERROR BRANCH 




5036 


016644 


005767 


003502 




TST 


RETFLG 


ARE WE IN ECHO TESTS ? 




5037 


016650 


001403 






BEQ 


21$ 


BR IF NOT 




5038 


016652 


010167 


002640 




MOV 


R1.DHVCT 


SET UP DH11 VECTOR ADDR 




5039 


016656 


000435 






BR 


5$ 


CONTINUE 




5040 


016660 


005767 


003454 


21$: 


TST 


DPFLG 


PATTERNS TESTS ACTIVE J 1 




5041 


016664 


001403 






BEQ 


22$ 


BR IF NOT 
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H 9 



5EO CI 



5042 

5043 

5044 

5045 

5046 

504 7 

5048 

5049 

5050 

5051 

5052 

5053 

5054 

5055 

5056 

5057 

5058 

5059 

5060 

5061 

5062 

5063 

5064 

5065 

5066 

5067 

5068 

5069 

5070 

5071 

5072 

5073 

5074 

5075 

5076 

5077 

5078 

5079 

5080 

5081 

5082 

5083 

5084 

5085 

5086 

5087 

5088 

5089 

5090 

5091 

5092 

5093 

5094 

5095 

5096 

5097 



016666 
016672 
016674 
016700 
016706 
016710 

016714 
016720 

016722 
016724 
016726 
016730 
016732 
016734 
016736 
016742 
016744 
016746 
016750 
016752 



016754 
016760 
016764 
016770 
016774 
017002 
017004 
017006 
017012 

017016 
017022 
017026 
017032 
017036 
017044 
017046 
017050 
017054 



017060 
017064 
017066 
01 7072 
017074 
01 7076 
017102 
017104 



010167 
000427 
012702 
032777 
001011 
012703 

016704 
012322 

006204 
005704 
001 374 
000410 
010122 
C60001 
022702 
001373 
000402 
104401 
025163 
000207 



010667 
012667 
012667 
012706 
012767 
104014 
000005 
004767 
000167 

010667 
012667 
012667 
012706 
012767 
104015 
000005 
004767 
000167 



016703 
010313 
062723 
005023 
010313 
062723 
005023 
000207 







MOV 


R l .DHV*. T 






BR 


5$ 


021646 


22$: 


MOV 


0DHVCT8.R2 


UUUUU l 






»8I 1 V, SSWR 






oNt 


7t 

5» 






nUV 


wDHVtC ,R3 






nuv 


tfMjcci n / 




65: 


nOV 


(H5) +, ( He ) * 






A CD 








T C T 


D/ 






ONt 








OK 








nuv 


n I , Inez * 






ADD 


R0.R1 


021706 




CMP 


#DHVCT8+40, R2 






BNE 


3$ 






BR 


5$ 




4$: 


TYPE 








INMSG5 






5$: 


RTS 


PC 



162216 
162200 
162176 
001100 
017004 



002406 
175572 

162154 
162136 
162134 
001100 
017046 



002344 
175530 



002432 
000002 

000002 



162106 



SET UP DEVICE VECTOR 
CONTINUE 

POINT TO BEGIN OF VECTOR T A8LE 
ARE WE AUT0SIZING? 
BRANCH IF NOT. 

POINT TO BEGIN'NG OF AUT0SIZER 
DH VECTOR TABLE. 

;M0VE CONTENTS OF AUT0SIZER VECTOR 
; TABLE TO TABLE USED BY PROGRAM. 

HAVE WE MOVED ALL TABLE ENTRIES? 
BRANCH IF NOT—ONE MORE TIME. 
RETURN TO INPUT ROUTINES. 
SET UP A TABLE ENTRY 
GENERATE NEXT DH11 ADDR 
END OF TABLE ? 
BR IF NOT 

RETURN TO INPUT ROUTINES 
TELL HIM HE GOOFED 

.•RETURN TO INPUT ROUTINES 

.-THESE TWO ROUTINES SERVICE UNEXPECTED BUS ERROR AND RSVD INSTR TRAPS 

BUSER: 



1$: 



162044 



MOV 


SP.SREG6 


; SAVE THE SP 


MOV 


(SP)*.$REG1 


.GET THE TRAP PC 


MOV 


(SP)+.$REG2 


;GET THE TRAP PSW 


MOV 


*STACK.SP 


RESET THE STACK POINTER 


MOV 


#1$.$LPERR 


ALWAYS COME BACK. TG 1$ 


ERROR 


14 


•UNEXPECTED BUS ERROR TRAP 


RESET 




•PREPARE TO RESTART 


JSR 


PC.CHPS1 


GO CLEAR PSW 


JMP 


CKRST2 


GO RESTART T.tE PROGRAM 


MOV 


SP,$REG6 


SAVE THE V 


MOV 


(SP)*,$REG1 


GET THE TRAP PC 


MOV 


(SP)*.$REG2 


GET THE TRA° PSW 


MOV 


fSTACK.SP 


RESET THE STACX POINTER 


MOV 


*1$.$LPERR 


•ALWAYS CCWE BACK TO 1$ 


ERROR 


15 


UNEXPECTED RSVD INSTR ERROR TRAP 


RESET 




PREPARE TO RESTART 


JSR 


PCCHPS1 ! 


GO CLEAR PSW 


JMP 


CKRS72 


GO RESTART THE PROGRAM 



1$: 



;THIS ROUTINE IS CALLED WHEN A TEST NEEDS TO RESTORE THE TRAP 
.•CATCHER IN THE DH11 VECTOR 



RESTRP: MOV 
MOV 
ADD 
CLR 
MOV 
ADD 
CLR 
RTS 



DHVCT,R3 
R3,(R3) 
*2,(R3)+ 
(R3) + 
R3.(R3) 
#2,(R3)* 
.(R3) + 
PC 



;GET VECTOR ADDRESS 
.•RESTORE THE TRAP CATCHER 



.•RETURN TO CALLING !ES T 
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5098 








5099 








5100 








5101 








5102 








5103 








5104 








5105 


017106 


005267 


003222 


5106 


017112 


001005 




5107 


017114 


005367 


003212 


5108 


017120 


001 0C2 




5109 


017122 


062716 


000002 


5110 


017126 


000207 




5111 








5112 








5113 








5114 








5115 








5116 


017130 


012705 


030160 


5117 


017134 


005025 




5118 


017136 


022705 


030460 


5119 


017142 


001 374 




5120 


017144 


000207 




5121 








5122 








5123 








5124 








5125 








5126 








5127 








5128 








5129 








5130 








5131 


017146 


022767 


021570 


5132 


017154 


001425 




5133 


017156 


01 7767 


002410 


5134 


017164 


105777 


161750 


5135 


01 71 70 


100410 




5136 


017172 


022767 


033500 


5137 


017200 


001404 




5138 


01 7202 


012767 


}77777 


5139 


017210 


000402 




5140 


017212 


005067 


002314 


5141 


017216 


062767 


000002 


5142 


01 7224 


062705 


000002 


5143 


01 723^ 


000205 




5144 








5145 








5146 








5147 








5148 








5149 








5150 








515! 








5152 








5153 


017232 


005767 


002276 



002416 
002404 

002370 
002322 

002346 



UP ROUTINES 



SfO C1 12 



THIS ROUTINE CALLED BY ANY TEST THAT NEEDS A TIMING WAIT LOOP 
"TIMEA" IS INITIALIZED BY THE CALLING ROUTINE TO THE MINIMUM REQUIRED 
VALUE AND "T1MEB" IS CLEARED TO OOOOCO. IF A TIME OUT OCCURS THIS 
ROUTINE WILL MOVE THE RETURN PC AROUND THE "LOOP" BRANCH BACK IN 
THE ROUTINE THAT CALLED IT TO ALLOW REPORTING AN ERROR MESSAGE 



TiMEJT. 



1$: 



INC 
BNE 
DEC 
BNE 
ADD 
RTS 



TIMES 
1$ 

TIMEA 
1$ 

*2.<SP) 
PC 



COUNT B 

BR IF NOT ZERO 

COUNT TIME A 

BR IF NO TIMEOUT 

MOVE RETURN PC TO ALLOW ERROR REPORT 
RETURN TO THE CALLING TEST 



.-THIS ROUTINE IS CALLED TO CLEAR ALL ENTRIES IN THE STATISTICS TABLES 



CLSTAT: MOV *R TOTAL, R5 

1$: CLR (R5)+ 

CMP *RT0TAL*192..R5 

BNE 1$ 

RTS PC 



SET UP POINTER TO BEGINNING 
CLEAR ONE WORD 
CLEARED ALL ENTRIES T> 
BR IF N0 T 



.THIS ROUTINE IS CALLED TO RETRIEVE A NEW LPR CONSTANT 
;FROM THE LPR TABLE (LPRTAfi) 



.•CALLING SEQUENCE : 



JSR R5.SETLPR 
BR NEWLIN 



SET LPR: CMP #CURLPR,LPRPTR 

BEQ 3$ 

MOV SLPRPTR.CURLPR 

TST8 aSWR 

BMI 1$ 

CMP #33500, CURLPR 

BEQ 1$ 

MOV #-1 .QUICK 

BR 2$ 

1$: CLR QUICK 

2S: ADD #2.LPRPTR 

ADD #?,R5 

3$: RTS R5 



CALL 

EXIT BRANCH - EXECUTED AFTER ALL 
13 BAUD RATES EXERCISED 

DONE ALL 13. ENTRIES ?? 
BR IF YES 

GET THE LPR CONSTANT 

QUICK TEST ? 
BR IF NOT - SUPPLY THE WHOLE THING 
9600 BAUD TEST ?> 
BR IF YES 

SET QUICK TEST FLAG 
CONTINUE 

DO FULL TESTING AT -9600. BAUD 
UPDATE THE TABLE POINTER 
MOVE PC AROUND ERROR BRANCH 
RETURN 



.-THIS ROUTINE IS CAlLED TO SETUP THE CHAR LENGTH SELECT BITS AND 
; LOAD THE OUTPUT DATA BUFFER 



;CAL1 ING SEQUENCE : 



JSR 
BR 

SETCL: TST 



R5.SETCL 
NEWLPR 

QUICKX 



; CALL 

;EXIT BRANCH AFTER ALL FOUR LNGTHS TESTED 
.-EXIT AFTER ONLY ONE CHAR LNGTH ? 
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515*. 


017236 


001034 




5155 


017240 


005267 


002332 


515o 
5^57 
3158 


017244 


022767 


000004 


017252 


001426 




01 7254 


005767 


002252 


5159 


017260 


001407 




5160 


017262 


005267 


002246 


5161 


017266 


005067 


002304 


5162 


017272 


012767 


177760 


5163 


01 7300 


042767 
056767 


000003 


5164 


017306 


002264 


5165 


017314 


006367 


002254 


5166 


01 7320 


004767 
062705 


000006 


5167 


017324 


000002 


5168 


017330 


000205 




5169 








5170 








5171 








5172 








5173 








51 74 








5175 








5176 








5177 


017532 






5178 


01 7332 


010246 




5179 


01 7334 


010346 




5180 


017336 


010446 




5181 


017340 


005004 




5182 


017342 


016703 


002226 


5183 


017346 


012702 


032754 


5184 


017352 


110422 




5185 


017354 


005204 




5186 


017356 


005203 




5187 


017360 


001374 




5188 


017362 


012604 




5189 


017364 


012603 




5190 


017366 


012602 




5191 


017370 


000207 




5192 








5193 








5194 








5195 








5196 
5197 














5198 








5199 








5200 








5201 


01 7372 


022767 


"\77777 


5202 


017400 


001 444 




5203 


017402 


005767 


002124 


5204 


017406 


001403 




5205 


01 7410 


012767 


000060 


5206 


017416 


042767 


000060 


5207 


017424 


056767 


002150 


5208 


017432 


005767 


002142 


5209 


017436 


001004 





002274 
002262 
002254 



1$: 



2$: 



BNE 


2$ 


RR IF YES 


INC 


CLSEL 


GENERATE NEW CHAR LNGTH SELECT CODE 


CMP 


#4. CLSEL 


DONE FOUR OF THEM ?? 


BEQ 


2$ 


BR IF YES 


TST 


QUICK 


QUICK TEST FLAG SET ? 


BEQ 


is 


■BR IF NOT 


INC 


QUICKX 


•SET QUICK TEST EXIT FLAG 


CLR 


CLSEL 


•DO ONLY 5 BIT CHARS 


MOV 


#1 77760. CHRCNT 


•DO ONLY 32. CHAR BUFFER 


BIC 


ffi.CURLPR 


SET UP THE CURRENT LPR 


BIS 


CLSEL. CURLPR 




ASL 


CHRCNT 


•GENERATE CHAR COUNT 


JSR 


PC.SU8UF1 


•GO SET UP THE OUTPUT BUFFER 


ADD 


#2.R5 


•MOVE PC AROUND EXIT BRANCH 


RTS 


R5 


; RE TURN 



;THIS ROUTINE IS CALLED TO LOAD THE OUTPUT DATA BUFFER WITH THE 
.-REQUIRED BINARY COUNT PATTERN 



; CALLING SEQUENCE: 



JSR 

SU8UF 1 : 

MOV 
MOV 
MOV 
CLR 
MOV 
MOV 

1$: MOVB 
INC 
INC 
BNE 
MOV 
MOV 
MOV 
RTS 



PC.SUBUF1 



R2.-(SP> 
R3.-CSP) 
R4,-(SP) 
R4 

CHRCNT. R3 

#T8UF,R2 

R4. (R2>+ 

R4 

R3 

1$ 

(SP)*.R4 
(SP)*.R3 
(SP)+,R2 
PC 



; CALL 



;PUSH R2 ON STACK 
.-PUSH R3 ON STACK 
.PUSH R4 ON STACK 
INIT CHAR GENERATOR 
SET UP LOAD COUNT 
SET UP BUFFER POINTER 
LOAD A CHAR 
GENERATE NEXT CHAR 
COUNT ONE LOADED 
BR TIL BUFFER FULL 
POP STACK INTO R4 
POP STACK INTO R3 
POP STACK INTO R2 
RETURN 



; THIS ROUTINE IS CALLED TO SET UP THE PARITY SELECT BITS 
;IN THE CURRENT LPR TEST CONSTANT 



.•CALLING SEQUENCE: 



002200 



002162 
002144 
0021 36 



JSR 
BR 

SETPAR: CMP 
BEQ 
T ST 
BEQ 
MOV 

1$: BIC 
BIS 
TST 
BNE 



R5. SETPAR 
NEWCL 

#-1.PARBIT 
5$ 

QUICK 
1$ 

#60.PARBIT 
#60, CURLPR 
PARS IT. CURL PR 
PAR8IT 
2$ 



CALL 

EXIT BRANCH 

DONE ALL PARITY COMBOS 
BR IF YES 

QUICK TEST FLAG SET ? 
BR IF NOT 

CHECK ODD PARITY ONLY 
SET PARITY SELECT BITS 

SELECT BITS 00 ? 
3R IF NOT 
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5210 


017440 


012767 


000020 


002132 




MOV 


#20,PARBIT 


•SET SELECT BITS TO 01 


5211 


C 17446 


000417 








BR 


4$ 


•EXIT 


5212 


017450 


022767 


000020 


002122 


2$: 


CMP 


#20.PAR8IT 


•SELECT BITS 10 ? 


5213 


017456 


001 00<i 








BNE 


3$ 


•BR IF NOT 


52K 


017460 


012767 


000060 


0021 1 2 




MOV 


#60.PAR8IT 


•MAKE SELECT BITS 11 


5215 


01 7466 


000407 








BR 


4$ 


•EXIT 


5216 


017470 


022767 


000060 


002102 


3$: 


CMP 


#60.PAR8IT 


•SELECT BITS 11 ? 


5217 


017476 


001005 








BNE 


5$ 


•8R IF NOT 


5218 


017500 


012767 


1 77777 


002072 




MOV 


#-1.PARBIT 


■SET EXIT FLAG 


5219 


017506 


062705 


000002 




4$: 


ADD 


#2.R5 


•MOVE RETURN PC AROUND EXIT BRANCH 


5220 


017512 


000205 






5$: 


ITS 


R5 


•RETURN 



5221 

5222 ; THIS ROUTINE IS CALLED TO SET UP FOR KEYBOARD INTERRUPTS 

5223 

5224 017514 012767 017540 160336 KYBD1 : MOV #KY8D2.60 ;SET UP THE INPUT VECTOR 

5225 017522 CI 2767 000340 160332 MOV #340.62 

522b 017530 012767 000100 160022 MOV #100.177560 ;ENA8LE KY8D INTRS 

5227 017536 000207 RTS PC ; RE TURN TO START TESTING 

5228 

5229 ;THIS ROUTINE SERVICES THE KEYBOARD INTERRUPT AND LOOKS FOR AN "S" 

5230 .BEING TYPED TO INDICATE ABORT AND PRINT STATISTICS 
5231 



5232 


017540 


1 1 7746 


161402 




KY8D2: 


MOVB 


a$TK8.-(SP) 


GET CHAR TYPED 


5233 
523', 
5235 


017544 


142716 


000200 






31 C8 


#200. (SP) 


CLEAR UNWANTED BITS 
WAS AN "S" TYPED ? 


017550 


122716 


000123 






CMP8 


#123. (SP) 


017554 


001420 








BEQ 


1$ 


8R IF YES 


5236 
5237 
5238 


017556 


022767 


0001 76 


161354 




CMP 


#SWREG.SWR 


USING SOFTWARE SWR? 


017564 


001024 








BNE 


2$ 


•8RANCH IF YES 


017566 


126727 


161342 


000001 




CMP8 


$A(JT0e.#1 


•RUNNING IN AUTO MODE? 


5239 


017574 


001420 








BEQ 


2$ 


•BRANCH IF YfcS 


5240 


017576 


122716 


000007 






CMP8 


#7,(SP) 


IS IT A c*G> 


5241 
5242 


017602 


001015 








BNE 


2$ 


•BRANCH IF NO 


017604 


005726 








TST 


CSP) + 


POP 


5243 


017606 


104401 


013745 






TYPE 


,$CNTLG 


• TYPE <*G> 


5244 


01761? 


000167 


173324 






JMP 


SGTSWR 




5245 


017616 


005726 






1$: 


TST 


(SPU 


POP 


5246 


017620 


000005 








RESET 




ZAP THE WORLD 


5247 


017622 


012706 


001100 






MOV 


#STACK.SP ! 


RESET THE SP 


5248 


017626 


004767 


001566 






JSR 


PC.CHPS1 


GO CLEAR PSW 


5249 


017632 


000167 


164554 






JMP 


PRSTAT 


GO DUMP THE STATIS T ICC 


5250 


017636 


005726 






2$: 


TST 


(SP) + 


POP 


5251 


C17640 


000002 








RTI 




RETURN AND FORGET IT 



5252 

5253 ; THIS ROUTINE SENDS A TEST BUFFER TO REMOTE DH11 LINE 
5254 

5255 017642 016701 001646 SENDP2: MOV DHADR.R1 ;SET UP DH SCR ADDR 

5256 017646 012711 004000 MOV #8IT11.(R1) .'CLEAR THE DH11 

5257 017652 016711 002266 MOV LINE,(R1) ;SET LINE SELECT 

5258 017656 162705 032754 SUB #T8Uf ,R5 ;SET UP BYTE COUNT 

5259 017662 005405 NEG R5 

5260 017664 010561 000010 MOV R5.8CR(R1) 

5261 017670 012761 032754 000006 MOV #T8UF .CAR(R1 ) ;SET CURRENT ADDRESS 

5262 017676 016761 001666 000004 MOV CURLPR.LPR(RI) ;SET LINE PARAMETERS 

5263 017734 016761 001616 000012 MOV LINMSK.8AR(R1 ) .-ACTIVATE THE LINE 
5264 

5265 017712 005711 1$: TST (R 1 ) ; DONE TRANSMITTING ?? 
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L 9 



SECf 01*5 



5266 

5267 

5268 

5269 

5270 

5271 

5272 

5273 

5274 

5275 

5276 

5277 

5278 

5279 

5280 

5281 

5282 

5283 

5284 

5285 

5286 

5287 

5288 

5289 

5290 

5291 

52Q2 

5293 

5294 

5295 

5296 

5297 

5298 

5299 

5300 

5301 

5302 

5303 

53CK 

5305 

5306 

5307 

5308 

5309 

5310 

5311 

5312 

5313 

5314 

5315 

5316 

5317 

5318 

5319 

5320 

5321 



017714 
017716 



01 7720 
017724 
017730 
017736 
017742 
017746 
017752 
017754 
017756 
017762 
017764 
017766 
017772 



100376 
000207 



116704 
012703 
116767 
116722 
116723 
116722 
005304 
001372 
116704 
005204 
005404 
010461 
000207 



SPI- 
RTS 



1$ 

PC 



;8R IF NOT 

.-RETURN TO CONTROL ROUTINE "SENDPV 





.-THIS 


ROUTINE 


IS CALLED TO LOAD FILLtRS 


INTO ECHO BUFFER 


002506 


LDF ILL 


: M0V8 


FILL8.R4 


;GET COUNT OF FILLERS 


022367 




MOV 


#EC8UF+1,R3 


;SET UP BUFFER POINTER 


161246 002430 




M0V8 


STMPO.ElBUF 


; STORE LF CHAR 


161240 




M0V8 


$TMP0.(R2)+ 


;IN ECHO BUFFER TOO 


002462 


1$: 


M0V8 


F ILLA, (R3) *■ 


;LOAD A FILLER CHAR 


002456 




M0V8 


FILLA.(R2)+ 








DEC 


R4 


; COUNT IT 






BNE 


1$ 


;8R TIL REQUIRED COUNT 


002450 




M0V8 


FILL8.R4 


;SET UP BYTE COUNT REG 






INC 


R4 








NEG 


R4 




000010 




MOV 


R4.8CRCR1 ) 


;LOAD BCR REG 






RTS 


PC 


.•RETURN TO RINT2 



.-THIS ROUTINE IS CALLED TO SET UP XMITTER SPEED 



017774 


104401 






INXSP: 


TYPE 




01 7776 


026610 








XSMSG1 




020000 


012767 


022150 


002140 


1$: 


MOV 


tfXSPTAB.XSPTR 


020006 


042767 


036000 


001554 




BIC 


#36000, CURLPR 


020014 


104413 








RDDEC 


020016 


005716 








TST 


(SP) 


020020 


001426 








BEQ 


4$ 


020022 


027716 


002120 




2$: 


CMP 


aXSPTR.(SP) 


020026 


001010 








BNE 


3$ 


020030 


062767 


000002 


002110 




ADD 


#2,XSPTR 


020036 


057767 


002104 


001 524 




BIS 


3XSPTR.CURLPR 


020044 


005726 








TST 


(SP) + 


020046 


000417 








BR 


5$ 


C20O50 


062767 


000004 


002070 


3$: 


ADD 


#4,XSPTR 


020056 


022767 


022234 


002062 




CMP 


#XSPTA8+52..X< 


020064 


001356 








BNE 


2S 


020066 


104401 








TYPE 


020070 


026636 








XSMSG2 




020072 


005726 








TST 


(SP) + 


020074 


000741 








BR 


1$ 


020076 


052767 


032000 


001464 


4$: 


BIS 


#32000, CURLPR 


020104 


005726 








TST 


(SP> + 


020106 


000207 






5$: 


RTS 


PC 



SET UP DEFAULT TO 9600. 
FIX STACK POINTER 

RETURN TO CALLER 



.-THIS ROUTINE IS CALLED TO SET UP RECEIVER SPEED 



ASK USER TO TYPE SPEED 
"TRANSMITTER SPEED ?" 
SET UP TABLE POINTER 
INIT SPEED SELECT BITS 
READ SPEED HE TYPED 
DEFAULT TO 9600. BAUD ? 
8R IF YES 

TYPED ENTRY MATCH TABLE ENTRY ? 
8R IF NOT 

POINT TO SELECT BITS IN TABLE 
SET SPEED SELECT BITS 
FIX STACK 
CONTINUE 



POINT TO NEXT ENTRY 
!;END OF TABLE ?? 
8R IF NOT 
ERROR MESSAGE 
"INVALID XMITR SPEED 
FIX THE SP 
GO TRY AGAIN 



- TRY AGAIN" 



BAUD 



020110 104*01 

0201 12 026701 v . 

020114 012767* 022236 

020122 042767 001700 

020130 104413 

020132 005716 



002112 
001440 



INRSP: 
1$: 



TYPE 

RSMSG1 

MOV 

BIC 

RDDEC 

TST 



#RSPTA8,RSPTR 
#1700,CURLPR 

(SP) 



ASK USER TO TYPE SPEED 
'RECEIVER SPEED ?" 
SET UP TABLE POINTER 
INIT SPEED SELECT BITS 
READ SPEED HE TYPED 
DEFAULT TO 9600. BAUD ? 
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5322 020134 001426 BEQ 

5323 020136 027716 002072 2$: CMP 
532^ 0201 42 001010 BNE 

5325 020144 062767 000002 002062 ADD 

5326 020152 057767 002056 001410 BIS 

5327 020160 005726 TST 

5328 020162 000417 BR 
5329 

5330 020164 062767 000004 002042 3$: ADD 

5331 020172 022767 022322 002034 CMP 

5332 020200 001356 BNE 

5333 020202 104401 TYPE 

5334 020204 026724 RSMSG2 

5335 020206 005726 TST 

5336 020210 000741 BR 
5337 

5338 020212 052767 001500 001350 4$: BIS 

5339 020220 005726 TST 
5340 

5341 020222 000207 5$: RTS 



5344 .-THIS ROUTINE 

5345 

5346 020224 105067 005772 L D RIN: CLRB 

5347 020230 104401 TYPE 

5348 020232 026536 LP.1SG 

5349 020234 104410 1$: RDCHR 

5350 020236 012600 MOV 

5351 020240 122700 000015 CMPB 

5352 020244 001405 BEQ 

5353 020246 110067 005750 MOVB 

5354 020252 104401 TYPE 

5355 020P54 026222 EC2 

5356 020256 000766 BR 
5357 

5358 020260 105767 005736 2$: TSTB 

5359 020264 001411 BEQ 

5360 020266 122767 000116 005726 CMPB 

5361 020274 001405 BEQ 

5362 020276 122767 000131 005716 CMP8 

5363 020304 001347 BNE 

5364 020306 000407 BR 

5365 020310 005767 001254 3$: TST 

5366 020314 001016 BNE 

5367 020316 012767 033503 001244 MOV 

5368 020324 000412 BR 

5369 020326 004767 177442 4$: JSR 

5370 020332 004767 177552 JSR 

5371 020336 004767 000022 JSR 

5372 020342 004767 000162 JSR 

5373 020346 004767 000274 JSR 

5374 020352 004767 000410 5$: JSR 

5375 020356 004767 000474 JSR 

5376 020362 000207 RTS 
5377 
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UP ROUTINES seo 0116 

4$ ;8R IF YES 

aRSPTR.(SP) ; TYPED ENTRY MATCH TABLE ENTRY ? 

3$ ;BR IF NOT 

#2.RSPTR .-POINT TO SELECT BITS IN TABLE 

3RSPTR.CURLPR ;SET SPEED SELECT BITS 

(SP)+ ;FIX STACK 

5$ .-CONTINUE 

04.RSPTR .-POINT TO NEXT ENTRY 

#RSPTA8+52..RSPTR;END OF TABLE ?? 
2$ ;BR IF NOT 

.-ERROR MESSAGE 

.-"INVALID RCVR SPEED - TRY AGAIN" 
'SP)+ ;FIX THE SP 

1$ ;G0 TRY AGAIN 

#1500.CURLPR .-SET UP DEFAULT TO 9600. BAUD 
(SP)+ ;FIX STACK POINTER 

PC ;RCTURN TO CALLER 



S CALLED TO SET UP LINE PARAMETERS FM KY8D 

EC2 .'CLEAR ECHO BUFFER 

;'D0 YOU WANT TO CHANGE "LPR"?" 

lSP)^,RO .-GET WHAT HE TYPED 

#15,R0 ;WAS IT A <CR> ?? 

2$ ;8R IF YES 

R0.EC2 ;ECH0 WHAT HE TYPED 



1$ ; GO WAIT FOR TERMINATOR 

EC2 ;<CR> ONLY ?? 

3S ;BR IF YES 

#116, EC2 ;WAS IT A "NO" ?? 

3$ ;8R IF IT WAS 

#131. EC2 ;WAS IT A "YES" ?? 

LPRIN ;G0 ASK ALL OVER AGAIN 

4$ ;BR IF IT WAS "YES" 

CURLPR ;HAS LPR BEEN SET UP AT ALL ? 

5$ ;8R IF YES USE PREVIOUS LPR 

#33503. CURLPR ;SET DEFAULT 9600 BAUD. 8 BITS NO PARITY 

5$ .-CONTINUE 

PC.INXSP ;G0 INPUT AND SET UP XMIT SPEED 

PC.1NRSP ;G0 INPUT AND SET UP RCVR SPEED 

PC.INCL ;G0 INPUT AND SET UP CHAR LENGTH 

PC.INS8 .GO INPUT AND SET UP NO. OF STOP BITS 

PC.INP8 ;GG INPUT AND SET UP PARITY SELECTION 

PC.INFCHR ;G0 INPUT AND SET UP FILLER CHAR 

PC.INFCNT ;G0 INPUT AND SET UP FILLER COUNT 

PC .-RETURN TO CALLER 
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N 9 



SEQ 0117 



5378 

5379 

5380 

5381 

5382 

5383 

5384 

5385 

5386 

5387 

5388 

5389 

5390 

5391 

5392 

5393 

5394 

5395 

5396 

5397 

5398 

5399 

5400 

5401 

5402 

5403 

5404 

5405 

5406 

5407 

5408 

5409 

5410 

5411 

5412 

5413 

5414 

5415 

5416 

5417 

5418 

5419 

5420 

5421 

5422 

5423 

5424 

5425 

5426 

5427 

5428 

5429 

5430 

5431 

5432 

5433 



;THIS ROUTINE IS CALLED TO SET UP CHAR LENCTH BITS 



020364 


105067 


005632 




INCL: 


CLR8 


EC2 


020370 


104401 








TYPE 


020372 


026767 








CLMSG1 




020374 


042767 


000003 


001166 


IS: 


BIC 


03.CURLPR 


020402 


104410 








RDCHR 


020404 


012600 








MOV 


(SP)+,RO 


020406 


122700 


00C01 5 






CMP8 


#15, RO 


020412 


001405 








BEG 


11$ 


020414 


110067 


005602 






M0V8 


R0.EC2 


020420 


104401 








TYPE 


020422 


026222 








EC2 




020424 


000763 








BR 


1$ 


020426 


105767 


005570 




11$: 


TST8 


EC2 


020432 


001432 








BEO 


4$ 


020434 


142767 


000060 


005560 




BIC8 


*60.EC2 


C20442 


122767 


000006 


005552 




CMP8 


*6,EC2 


020450 


001004 








BNE 


2$ 


020452 


052767 


000001 


001110 




BIS 


*1.CURLPR 


020460 


000422 








BR 


5$ 


020462 


1 22767 


000007 


005532 


2$: 


CMP8 


#7,EC2 


020470 


001004 








BNE 


3$ 


020472 


052767 


000002 


001070 




BIS 


*2,CURLPR 


AOACAA 


AAA/ 1 *5 

UU04 \d 








BR 


5$ 


020502 


122767 


000010 


005512 


3$: 


CMP8 


*8..EC2 


020510 


001403 








BEQ 


4$ 


020512 


104401 








TYPE 


020514 


027025 








CLMSG2 




020516 


000722 








BR 


INCL 


020520 


052767 


000003 


001042 


4$: 


BIS 


#3.CURLPR 


020526 


000207 






5$: 


RTS 


D C 



CLEAR THE ECHO BUFFER 
ASK FOR INPUT 

"CHAR LENGTH - 6,7. OR 8 ?" 

INN CHAR LENGTH SELECT BITR 

GET THE CHAR HE TYPED 

GET WHAT HE TYPED 

WAS IT A <CR> ?? 

8R IF IT WAS 

ECHO WHAT HE TYPED 



GO WAIT FOR TERMINATOR 
<CR> ONLY ?? 
8R IF YES 
STRIP ASCII 

6 BITS ? 
8R IF NOT 

SET UP FOR 6 BIT CHARS 
CONTINUE 

7 BITS ? 
BR IF NOT 

SET UP FOR 7 BIT CHARS 
CONTINUE 

8 BITS ? 
8R IF YES 
ERROR MESSAGE 
"INVALID CHAR LENGTH 
GO TRY AGAIN 

SET UP FOR 8 BIT CHARS 
RETURN TO CALLER 



TRY AGAIN' 



020530 
020534 
020536 
020540 
020542 
020544 
020550 
020552 
020556 
020560 
020562 
020564 
020570 
020572 
020600 
020606 
020610 
020616 
020620 
020626 
020630 



105067 
104401 
027071 
104410 
012600 
122700 
001405 
110067 
104401 
026222 
000766 
105767 
001422 
142767 
122767 
001004 
052767 
000412 
122767 
001403 
104401 



005466 

000015 
005444 

005432 

000060 
000002 

000004 

OOOOC 1 



;THIS ROUTINE IS CALLED TO SET UP NO. OF STOP BITS 
INS8: 

1$: 



11$: 



005422 
005414 

000752 

005374 



2$: 



CLR8 


EC2 


; CLEAR ECHO BUFFER 


TYPE 




;ASK FOR INPUT 

r'NO. OF STOP BITS - 1 OR 2 ?" 


S8MSG1 




RDCHR 




;GET CHAR TYPED 


MOV 


(SF)+.RO 


,-6ET WHAT HE TYPED 


CMP8 


#15,R0 


;WAS IT A <CR> 


BEQ 


11$ 


;8R IF YES 


M0V8 


R0.EC2 


rECHO WHAT HE TYPED 


TYPE 






EC2 






BR 


1$ 


•GO WAIT FOR TERMINATOR 


TST8 


EC2 


<CR> ONLY ?? 


BEQ 


3$ 


•8R IF YES 


BIC8 


#60,EC2 


CLEAR ASCII JUNK 


CMP8 


#2.EC2 


2 STOP BITS ? 


BNE 


2$ 


8R IF NOT 


BIS 


#4,CURLPR 


SET UP FOR TWO STOP BITS 


BR 


4$ 


CONTINUE 


CMP8 


#1,EC2 


ONE STOP BIT ? 


BEQ 


3$ 


8fi IF YES 


TYPE 




ERROR MESSAGE 
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54 54 
5435 

54V 

5458 

54 59 

5440 

5441 

544,? 

5445 

5444 

5445 

5446 

5447 

5448 

5449 

5450 

5451 

545? 

5455 

5454 

5455 

5456 

5457 

5458 

5*59 

5460 

5461 

5*6? 

5465 

5464 

5465 

5466 

5467 

5468 

5469 

5470 

5471 

547? 

5475 

5474 

5475 

5476 

5477 

5478 

5479 

5480 

5481 

548? 

5483 

5*84- 

5485 

5486 

5487 

5488 

5489 



020652 
0?0654 
0?0656 
0?0644 



0?0646 

0?065? 

0?0654 

0?0656 

0?0664 

0?0666 

0?0670 

0?0674 

020676 

020702 

020704 

020706 

020710 

020714 

020716 

020724 

020726 

020734 

020756 

020744 

020746 

020754 

020756 

020760 

020762 

020764 



0271 50 
000735 
042767 
000207 



105067 

104401 

0?7176 

042767 

104410 

012600 

1??700 

001405 

110067 

104401 

0?6?22 

000763 

105767 

001423 

122767 

001004 

052767 

000413 

1??767 

001004 

05? 76 7 

000403 

104401 

0?7?44 

000731 

000?07 



020766 
0?077? 
0?0776 
0?1000 
021002 
021006 
021010 
021012 
021016 
021020 
021024 
021026 
021030 

021032 
021036 
021040 
021046 
021054 



105067 
005067 
104401 
027303 
005067 
104410 
012600 
122700 
001405 
110067 
104401 
026222 
000764 

TC5767 
001403 
116767 
116767 
000207 









S8MSG2 


000004 






BR 


INSB 


000 7?4 


5S: 


BIC 


#4.CURLPR 






-f : 


RTS 


PC 






.-THIS 


on i t i kic 




005550 




INPB: 


f 1 OR 
T V PF 


etc 


000060 


000704 




OIL 


»/,n ft ioi dd 








RDCHR 


000015 






MOV 


f^p>» pn 






L ' m »j 




005 520 






DC Q 

or w 










pn ft? 

"W .etc 








T VPP 








FC? 




005506 






Of) 


i« 

1 9 




'If: 


T "iTB 

1 J l<3 


FT P 


OOO105 






DC O 
at W 




005276 




TMPQ 


#105 FT? 


000060 










000654 




BIS 


#60. CURL PR 


000117 






BR 


41 


005256 


21: 


CMPfj 


#117.EC? 


000020 






BNE 


5$ 


0006 '4 


J$. 


BIS 
BR 

type 

P8MSG2 
BR 


#P0 HlRl PP 
4$ 

INP8 






41: 


PT ^ 








;rnis 


ROUTINE 


IS CALLED TO 


005230 




IN* CHR 




EC2 


00143? 






CLR 
t yPF 

1 ILL 1 


F It 1 4 


0014?0 




'$: 


n p 


vnf ILL 








RDCHR 


000015 






mov 


l jr / w . r\\J 






f MP8 


#15 PR 


005176 






8EQ 


2$ 






M0V8 


R0.EC2 








TrPE 








EC2 










BR 





005164 

005156 
001555 



001561 
001554 



21: 
5$: 



TST8 

BEQ 

M0V8 

nova 

RTS 



EC2 
3$ 

EC2.DHF JLL*1 
DHF ILL*1,FILLA 
PC 



. 'INVALID NO. STOP BITS - TRY AGAIN" 

;G0 TRY AGAIN 

.SET UP FOR ONE STOP BIT 

.■RETURN TO CALLER 

UP PARITY SELECT BITS 

; CLEAR ECHO BUFFER 

;ASK FOR INPUT 

.'PARITY - E.0, OR <CR> ?" 

;INIT FOR NO PARITY CHECKING 

;GET CHAR TYPED 

;GET WHAT HE TYPED 

.WAS IT A <CR> ?? 

;8R IF IT WAS 

.-ECHO THE CHAR TYPED 



;G0 WAIT FOR TERMINATOR 
;<CR> ONLY 7? 
;8R IF YES 
.EVEN PARITY ?? 
*BR IF NOT 

;SET UP FOR EVEN PARITY 
.•CONTINUE 
.ODD PARITY 
;8R IF NOT 

.SET UP FOR ODD PARITY 

.CONTINUE 

.ERROR MESSAGE 

; INVALID PARITY - TRY AGAIN" 
.GO TRY AGAIN 
.RETURN TO CALLER 

UP 'TILL" CHAR 

; CLEAR ECHO BUFFER 

;INIT TEMP STORAGE FOR CHAR 

;G0 ASK FOR FILLER CHAR 

;'TILL CHAR ?" 

;!NIN FILL LOCATION 

.GET CHAR TYPED 

.GET WHAT HE TYPED 

.WAS IT A <CR> ?? 

;8R IF YES 

.ECHO WHAT HE TYPED 



;G0 WAIT FOR TERMINATOR 

;<CR> ONLY ?? 
;BR IF YES 
;SET UP FILL CHAR 
; SAVE FILL CHAR 
.'RETURN TO CALLER 
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C 10 



SEO 0119 



5490 

5A91 

5492 

5493 

5494 

5495 

5496 

5497 

5498 

5499 

5500 

5501 

5502 

5503 

5504 

5505 

5506 

5507 

5508 

5509 

5510 

5511 

5512 

5513 

5514 

5515 

5516 

5517 

5518 

5519 

5520 

5521 

5522 

5523 

5524 

5525 

5526 

5527 

5528 

5529 

5530 

5531 

5532 

5533 

5534 

5535 

5536 

5537 

5538 

5539 

5540 

5541 

5542 

5543 

5544 

5545 



021056 
021062 
021064 
021066 
02^070 
021072 
021074 
021100 
021102 
021110 
021112 
021120 
021126 



021130 
021134 
021140 
021144 
021150 
021152 
021154 



021156 
021162 
021166 
021 1 72 
021 1 74 
021176 
021200 
021202 
021204 



021206 
021212 
021216 
02 1222 
021226 
021230 
021232 
021234 
021236 



021240 
021244 
021250 
021254 



005067 
104401 
027331 
104412 
005716 
001403 
111667 
000403 
112767 
005726 
142767 
116767 
000207 



004767 
016700 
012705 
112725 
005200 
001374 
000207 



004767 
016700 
012705 
005004 
110425 
105204 
005200 
001374 
000207 



004767 
016700 
012705 
012704 
110425 
105304 
005200 
001374 
000207 



004767 
016700 
012705 
012767 



000246 
000434 
032754 
000252 



000220 
000406 
032754 



0001 70 
000356 
032754 
000377 



.this routine is called to set up 'till" count 



001350 




INFCNT: 


Cl« 


FILL8 


• INI T TEMP. STORAGE FOR COUNT 








TYPE 




■ASK FOR COUNT 








FILC2 




'TILL COUNT ?" 








RDOCT 




GET OCTAL NO. TYPED 








TST 


(SP) 


■DEFAULT TO ONE ? 


001326 






BEQ 


11 


■8R IF YES 






*0V<3 


(SP).DHFRL 


•SET UP COUNT TYPED 








BP 


2S 


•CONTINUE 


000001 


001316 


*$: 


M0V8 


#1 .DHF ILL 


•SET UP FOR 1 FILLER 






21: 


TST 


(SP>* 


•FIX THE SP 


000360 


001306 




BIC8 


♦360. DHF ILL 


•LIMIT COUNT TO 15. MAX 


001 302 


001304 




wove 


DHFILL. FILLB 


SAVE IT FOR LATER 








RTS 


PC 


•RETURN TO CAlLER 



TMIS ROUTINE CALLED TO SET UP ALTERNATING 1/0 PATTERN 



SUPATA: 



JSR 
MOV 
MOV 

movs 

INC 
8NE 
RTS 



PC.CLALL 

CHRCNT.RO 

*T8UF ,R5 

♦252. (R5)* 

RO 

11 

PC 



;G0 CLEAR XMIT AND RCV BUFFERS 

;GET CHAR COUNT 
POINT TO XMIT BUFFER 
LOAD A BYTE 
COUNT IT 

BR TILL BUFFER FULL 
RETURN TO "DPATA" ROUTINE 



; r KS ROUTINE IS CALLED TO SET UP UP COUNT PATTERN 



SJPATU: 



1$: 



JSR. 

MOV 

MOV 

CLR 

MOVS 

INC8 

INC 

BNE 

RTS 



PC.CLALL 
CHRCNT.RO 
#T8UF .R5 
R4 

R4,(R5)* 

R4 

RC 

11 

PC 



GO CLEAR BUFFERS 

GET COUNT Of CHARS TO LOAD 

POINT TO XMITTR BUFFER 

INIT CHAR GENERATOR 

LOAD ONE BYTE 

GENERATE NEXT BYTE 

COUNT IT 

BR TIL BUFFER FULL 
RETURN TO "DPATU" ROUTINE 



; THIS ROUTINE IS CALLED TO SET UP DOWN COUNT PATTERN 



SUPATD: JSR 
MOV 
MOV 
MOV 

'I: MOVB 
DECS 
INC 
BNE 
RTS 



PC.CLALL 

CHRCNT.RO 

#T8UF.R5 

♦377.R4 

R4,(R5J* 

R4 

RO 

11 

PC 



CLEAR THE BUFFERS 
SET UP COUNT TO LOAD 
POINT TO XMIT BUFFER 
INIT CHAR GENERATOR 
LOAD ONE BYTE 
GENERATE NEW CHAR 
COUNT I T 

8R TIL BUFFER FULL 
RETURN TO ' T>PA T A' ' ROUTINE 



.-THIS ROUTINE CALLED TO LOAD RANDOM DATA PATTERN 



000136 
000324 
032754 

125252 001074 



SJPATR: JSR 
MOV 
MOV 
MOV 



PC.CLALL 
CHRCNT.RO 
#T8UF ,R5 
#1 25252, RANA 



GO CLEAR BUFFERS 
SET UP COUNT TO LOAD 
POINT TO XMITTR BUFFER 
INIT RANDOM NUMBER GENERATOR 
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POwER DOWN AND 



D 10 



UP ROUTINES 



SEQ 0120 



5546 
5547 
5548 
5549 
5550 
5551 
5552 
5553 
5554 
5555 
5556 
5557 
5558 
5559 
5560 
5561 
5562 
5563 
5564 
5565 
5566 
5567 
568 
5569 
5 >7C 
55 7 1 
55?? 
5573 
5574 
5575 
5576 
5577 
5578 
5579 
5580 
5581 
5582 
5583 



021262 
021270 
021274 
021302 

021306 
021312 
021314 
021316 



021 320 
021 324 
021 330 
021334 
021340 
021342 
021344 



021346 
021 352 
021360 
021364 
021366 
021370 
021374 
C'1376 
OiHOO 



021402 
02H06 
021410 
021414 
021416 



066767 001070 

005567 001062 

066767 001060 

005567 001052 

116725 001044 
005200 
001362 
000207 



004767 000056 
016700 000244 
012705 032754 
116725 001010 
005200 
001374 
000207 



00107Q IS: 
001054 



ADD 


RANA.RAN8 


ADC 


RANA 


ADD 


RANB.RANA 


ADC 


RANB 


M0V6 


RANA , ( R 5 ) ♦ 


INC 


RO 


BNE 


1$ 


RTS 


PC 



.•GENERATE RANDOM NO. 



LOAD A BYTE 
COUNT IT 

8R TIL BUFFER FULL 
RETURN TO " DPATR' ' ROUTINE 



.-THIS. ROUTINE LOADS A SINGLE CHAR THROUGHOUT BUFFER 



SUPATS: 


JSR 


PC.CLALL 


•GO CLEAR BUFFERS 




MOV 


CHRCNT.RO 


•INIT CHAR COUNTER 




MOV 


#TBUF .R5 


•POINT TO XMIT BUFFER 


IS: 


M0V8 


SINGLE. (R5)* 


■LOAD ONE CHAR 




INC 


RO 


•COUNT IT 




BNE 


1$ 


•8R TIL BUFFER FULL 
•RETURN TO ' DPATS" ROUTINE 




RTS 


PC 



; THIS ROU T INE CALLED TO INI T CHAR LENGTH MASK FOR PATTERNS TESTS 



016700 
012767 
042700 
005700 
001404 
106367 
005300 
000772 
000207 



012700 
005020 
022700 
001 37* 
000207 



000216 
000340 
177774 



000766 



032 7 54 
034104 



001002 



SUCLMK: 



1$: 



MOV 
MOV 

BIC 
TST 
BEO 
ASLB 
DEC 
BR 
RTS 



CURLPR.RO 

#340.CLMSK 

#1 77774.R0 

RO 

2$ 

CLMSK 

RO 

IS 

PC 



.•ROUTINE TO CEAR XMIT AND RECEIVER BUFFERS 



GET CURRENT "LPR" 
INIT FOR 5 BIT CHARS 
MASK OFF ALL BUT CL BITS 
DONE SETUP ? 
BR IF YES 
SHIFT MASK LEFT 
COUNT IT 

GO SEE IF ITS RIGHT ON 
RETURN TO CALLER 



CcALL 
1S: 



MOV 

CLR 
CMP 
BNE 

RTS 



#T8UF .RO 

(RO)* 

#EN8UFS.R0 
1S 

PC 



SET UP POINTER 
CLEAR A WORD 
DONE ALL LOCATIONS 
8R IF NOT 
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E 10 



5584 

5585 

5586 

5587 

5588 

5589 

559C 

5591 

5592 

5593 

5594 

5595 

5596 

5597 

5598 

5599 

5600 

5601 

5602 

5603 

56CK 

5605 

5606 

5607 

5608 

5609 

5610 

5611 

5612 

5613 

56H 



02K20 
021424 
02K30 
0214 32 



021434 
021440 
021444 
02^46 



02U50 
02H52 
021456 
021464 
021466 
021 4*4 
021500 
021502 
021506 
0215^2 



012746 
012746 
000002 
000207 



012746 
012746 
000002 
000207 



005046 
016746 
012767 
104400 
016666 
012716 
000002 
012667 
012667 
000207 



000000 
02H32 



000340 
021446 



156356 
02*466 



;635C 



000002 000006 
021502 

156326 

157<.7C 



irS^E^In^avATieLE T ° SET PSW PRI0R1TY 10 000 1N 0k0ER 



CHPS1: MOV 
MOV 
RTI 
RTS 



#0.-(SP) 

PC 



NEW PSW 
NEW PC 
CHANGE PSW 

RETURN TO CALLING TEST 

.-THIS RCXiTJNE DOES THE SAME THING EXCEPT IT SET THE PSW 
.-PRIORITY TO 340 (LEVEL 7 ) TO LOCK OUT INTRS 



CHPS2: 



MOV 
MOV 
RTI 
RTS 



#340. -(SP) 

m.-(SP> 

PC 



NEW PSW 
NEW PC 

CHANGE THE PSW 
RETURN TO CALLING TEST 



.•this routine :s also for lsih compatibilit? and it is called 

;'0 SAi/E THE PSW IN •ITMPO'* »-«LLtu 



SAPS 

'$: 

2S: 



CLR 

MOV 

MOV 

TRAP 

MOV 

MOV 

RTI 

MOV 

MOV 

RTS 



-(SP) 
34. -<SP) 
#1$.34 

2(SP).6(SP) 
#2S.fSP) 

'SP>».34 
fSP *.$TMP0 

PC 



TEMP STORAGE TO SAVE PSW 

SAVE TRAP VECTOR POINTER 

GO TO 1$ ON TRAP 

GO TO IT 

GET PSW SAVED 

GO TO 2$ ON RTI 



.•RESTORE VECTOR 

.FINALLY SAVE PSW IN $TMPO 



0215K 
021516 
021520 
021522 
021524 
021526 
021530 



C7DHN-D MACT 
C7DHND.P11 



56 1 5 

5616 

56V 

5618 

5619 

5620 

5621 

5622 

5623 

5624 

5625 

5626 

5627 

5628 

5629 

5630 

5631 

5632 

5633 

5634 

5635 

5636 

5637 

5638 

5639 

5640 

5641 

5642 

5643 

5644 

5645 

5646 

5647 

5648 

5649 

5650 

5651 

5652 

5653 

5654 

5655 

5656 

5657 

5658 

5659 

5660 

5661 

5662 

5663 

566* 

5665 

5666 

5667 

5668 

5669 

5670 
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000002 
000004 
000006 
0000 1 0 
000012 
00001'. 
000016 

oocooo 
pooooo 

000000 
000001 

000000 
000000 



021532 000000 
021534 OOOOCC 



021536 
021540 
021542 
021544 
021546 
021550 
021552 
021554 
021556 
C2156C 
021562 
021564 
021566 



033^00 
0042-00 
006300 
010400 
012500 
074600 
C'6700 

02:ooc 

023700 
025200 
027300 
031400 
002100 



027570 000000 



021572 
021574 

027576 
021600 



000000 
000000 

000000 
000000 
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DM7 1 PROGRAM CONSTANTS AND VARIABLES 

S8TTL DM1" PROGRAM CONSTATS AND VARIABLES 



SEO 0122 



ADDITIONAL PROGRAM CONSTANTS AND VARIABLES 

••»•••*»*»»•*»*•***»•*******»**»*»**»»*»*******»»********»***»** 



DKADR: 

DH^(. T : 

SELMSK: 

DMSEL : 

LlNSEL : 

lINMSK: 

DRPLlN: 



NRC 2 

LPR-4 

CAR=6 

BCR=10 

BAR=12 

BXR=U 

SSR-16 

0 
0 
0 

1 

1,77777 

C 

0 



QUICK: 0 
3vJi:<»: 0 



INDEX 
INDEX 
INDEX 
INDEX 
INDEX 
INDEX 
INDEX 



CONST. 
CONST. 
CONST. 
CONST. 
CONST. 
CONbT. 
CONST. 



TO ACCESS 
TO ACCESS 
ACCESS 
ACCESS 
TO ACCESS 
TO ACCESS 
TO ACCESS 



TO 
TO 



NEXT RCVD CHAR REG 
LINE PARAMETER REG. 
CURRENT ADDRESS REG. 
BYTE COUNT REG. 
BUFFER ACTIVE REC. 
BREAK CONTROL REG. 
SILO STATUS REG. 



UNDER TEST 
DH11 UNDER 



HOLDS THE "SCR" ADDRESS OF THE DH7 7 
MOLDS THE 1ST VECTOR ADDRESS OF THE 
BIT TST MARKER FOP SELECTING DH1VS 
SPECIFIES DHII'S SELECTED FOR TEST 
SPECIFIES LINES TO TES T 
MARKER USED TO TEST FOR LINES TO TEST 
DROPPED LINE FLAGS 



QUICK TEST FLAG - ALLOWS SINGLE PATTERN TEST 
ON ALL TESTS NOT USING 9600. BAUD 
ALLOWS SUB-TEST EXIT DURING QUICK TEST 



TEST 



THIS TABLE CONTAINS THIRTEEN CONSTANTS USED TO ESTABLISH 
ThE INITIAL LINE PARAMETERS FOR THE THIRTEEN PROGRAMMABLE BAUD 
RATES - EACH PARAMETER INITIALLY SPECIFIES NO PARITY CHECKING 
.-AND A LHARACTER LENGTH OF F WE BITS 



.PR TAB: 



33500 

4200 

6300 

10400 

12500 

14600 

16700 

21000 

23100 

25200 

27300 

3 HOC 

2100 



021602 COOOOO 



CURLPR: 0 

lPRPTR: 0 

CmRCNT: 0 

CLSEL: 0 

PARS I T : 0 

PDONF : 0 



9600 BAUD 
75 BAUD 
710 BAUD 
154.5 BAUD 
150 BAUD 
200 BAUD 
300 BAUD 
600 BAUD 
1200 BAUD 
1800 BAUD 
2400 BAUD 
4800 BAUD 
50 BAUD 

CONTAINC CURRENT "LPR" CONSTANT 

CONTAINS POINTER TO LPR TABLE 
LOADED WITH CURRENT CHAR COUN T 

CHAR LENGTH SELECT PARAMETER 
PARITY SELECT PARAMETER 

SOFTWARE DONE FLAG 
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567' 

5672 

5673 

5674 

5675 

5676 

5677 

5678 

5679 

5680 

5681 

5682 

5683 

5684 

5685 

5686 

5687 

5688 

5689 

5690 

5691 

569? 

5693 

5694 

5695 

5696 

5697 

5698 

5699 

5700 

5701 

5702 

5703 

5704 

5705 

5706 

5707 

5708 

5709 

5710 

5711 

571? 

5713 

5714 

5715 

5716 

5717 

5718 
5719 
57?0 
5721 
5722 
5723 
5724 
57?5 
5726 



0?1t>04 oooooo 



SEO 0123 



021606 

021610 

021612 

021614 

021616 

021620 

021622 

021624 

021626 

021630 

021632 

021634 

021636 

021640 

02164? 

021644 



02 1 646 
021650 
021652 
021654 
0?1656 
0?1660 
021662 
021664 
021666 
021670 
021672 
021674 
021676 
021700 
021702 
021704 



160020 
160040 
160060 
160100 
160120 
160H0 
160160 
160200 
160220 
160240 
160260 
160300 
160320 
160340 
16C360 
'60400 



000330 
000350 
000370 
000410 
000430 
000450 
0004 70 
00051C 
000530 
000550 
000570 
000610 
000630 
000650 
000670 
000710 



021706 OOOOOO 



021710 
021712 
021714 
021716 
021720 
021722 
021724 



120240 
120240 
1 20240 
U02^0 
12C240 
'20240 
1202^0 



R8FEND: 0 



;DHl1^ADDRESS f TABLE - T H IS TABLE CONTAINS THE 



; HOLDS END OF BUFFER ADDRESS 

'SCR" ADDRESS FOR UP TO 



DhADTB: 160020 
' 600^0 
160060 
'60100 
'60120 
160140 
160160 
1 60200 
160220 
'60240 
16026C 
160300 
'60320 
160340 
160360 
1 60400 

;DH'1 VECTOR TABlE 
;-0 SIXTEEN DHll'S 

DHrfCre.- 330 
350 
370 
410 
430 
450 
470 
5*0 
530 
550 
570 
610 
630 
650 
67C 
710 

.'FlG: C 



.•ADDRESS OF FIRST DH11 
; ADDRESS OF SECOND DH11 



.•address of the last dh11 
this table contains the vector addresses yor jp 

.•address of vector for first dh11 
; address of sector for second dh1 1 



.-ADDRESS OF VECTOR FOR LAST DH'1 
.•VECTOR DISPLACEMENT FLAG 



^ 0 PR I°?jl r r, L !^ L TA6 ^ " JH ^ TABLE CONTAINS THE PRIORITr LEVELS 

122 ¥c 1 2J 1 rl H l N r 0HV S " THC RCVR LEVFL IS ST0R E D I* T «E LOW BYTE 
AND THE XMHR LEVEL IN THE HIGH BYTE 



BRl VL : 



120240 
120240 
120240 
120240 
120240 
120240 
120240 



.•brlevels for first OHll 

;BR LEVELS FOR SECOND DH11 
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SEO 0124 



C717 

5V2' 


021 726 


120240 




120240 


3 ?CO 




"202^0 




i?0240 


3 '29 


ah ■> "» -\ 

02' 732 


120240 




120240 


5 77A 

V 50 




1 1A1/ 

1 202^0 




120240 


5 '51 


021736 


120240 




120240 


C 77T 

3 '52 


021 740 


120240 




120240 
V0240 


5 771 

3 '5 5 


A "5 1 7/ "5 

02 1 '42 


120240 
1c024C 




3 '54 


A 3 7 *>/ / 
021 '44 




120240 
, ?02*.0 


C 7ZC 


mi 7/ / 

02 1 7/,6 


1 *1A A 

'20240 




C 71i 

5 56 
















dh addre:, 


5758 






C77Q 

3 '59 


A "5 1 V C A 

02 ' oO 




DmADRS: 


(7/A 

3'*»0 


ATI 7CA 

021 /S 0 


r\i- 1 \ AA A 

000000 


.W0"D 


c 


C7/ i 
5 '4 1 


All 7C *i 

02" 75-? 


000000 


.WORD 


0 


C ?t ~i 
3'4*? 




A#\AAAA 

OOOOOO 


.WORD 


Q 


C 7/ 7 
3 f**0 


021 06 


A A Ai*^ A^ 

000000 


.WORD 


c 


5 7// 

3 '*»*► 


A 3 1 7/ A 

0<r 1 '60 


000000 


.WORD 


0 


C 7/ C 
3'43 
c7/i; 

J *»o 


A "5 1 7/ ^ 

02 1 762 


A/\AAAA 

000000 


.WORD 


0 


021 '64 


1 \A AAA A 

000000 


.WORD 


c 


5 7/ 7 
3 '*► ' 


\)d \ '66 


AAAAA A 

000000 


• WORD 


c 


5 7/ O 
3 'SO 


021 77Q 


AAA AAA 

oooooc 


^\Af\ 

.WORD 


0 


5 7Z.Q 
3 ' *»7' 


H31 773 


A7\AAAA 


.WORD 


0 


C 7C A 

3' 30 


nTi 77/ 
Ot 1 ' '*» 


A AAAAA 

000000 


.WORD 


0 


5 75 1 

3 '3 1 


aoi 77* 


000000 


. WORD 


A 


J '3e 


A33AAA 


AAAAAA 

U0»A>00 


.WORD 


r 

u 

A 
>J 


575 7 

J ' 3 5 


n 3 3 a/ - ! s 


AAAAAA 

000000 




575Z. 
3' }» 




AAAAAA 




0 


^755 








5 75 A 








»J H L ' UN 


5 757 

3' 3' 








5 75B 

j ' 30 










3 '37 


Ci33finA 


UOUOOO 


jTlDtl 


A 

u 


c 7^n 


n33ni n 
\Jcc\J 1 u 


WWW' 




■J 


3 'O 1 


n33n , » 3 


Ul^JvOu 


■ «U"U 


A 

V 


C 7A3 


r>33m a 

VccV I «• 


AAAAAA 

uwooo 


.WORD 


0 


3 roj 


UccV i 0 


ouovou 


.WORD 


0 


C 7/L/ 
3 ' O** 


n33n3n 


AAA/VVl 


.WORD 


0 


3 f D3 


0,33033 


AAAAAA 


.WORD 


« 


C 7//. 


n33n3i 


AAAAAA 
UUUUUO 


.WORD 


0 

n 
V 


57A7 

J'U 




\J\AJ\f\AJ 


.WORD 


3 'OO 




oouow 


.WORD 


0 


57AO 

3 f U7 


033013 


(VWWi 
UWWU 


.WORD 


0 


^770 

J'fU 


UccU3*» 




.WORD 


0 


3 ' ' t 


UCCUJU 


UWUw 


.WORD 


0 


S772 






• WORD 


0 


S771 

j ' f j 














.-THIS 


DM ANDRES 


5775 








5776 


022042 




DMAD. n S 




5777 


022042 


000000 


.WORD 


' 0 


5778 


022044 


000000 


.WORD 


0 


5779 
5780 


022046 


000000 


.WORD 


0 


022050 


ooooco 


.WORD 


0 


5 ?81 
5 782 


022052 


000000 


.WORD 


0 


022054 


000000 


. WORD 


0 



;6R LEVELS *0R u AS T DHll 















I 10 
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AND VARIABLES 


ccn 01 P5 


5783 


022056 


000000 












5784 


022060 


oocooo 












5785 


022062 


000000 

v w w w 












5786 


022064 


000000 


.WORD 


0 








578^ 


022066 


000000 

www 


.WORD 


c 








5788 


022070 


000000 

w www 


.WORD 


0 








5789 


022072 


ooooco 


.WORD 


0 








5790 


022074 


000000 


.WORD 


c 








5791 


022076 


000000 


.WORD 


0 




- 




5792 
















5793 






;ThIS DM VFCT0P 


T AO C 


IS HllED by the autosjzer. 




5794 
















5795 


022100 




DMVtC : 










5796 


022100 


000000 


• WORD 


0 








5797 


022 102 


000000 


.WORD 


0 








5798 


022104 


000000 


.WORD 


0 








5799 


022106 


000000 


.WORD 


0 








5800 


022110 


000000 


.WORD 


0 








5801 


022112 


000000 


.WORD 


0 








5802 


022114 


000000 


.WORD 


0 








5803 


022116 


000000 


.WORD 


0 








5804 


022120 


cooooc 


.WORD 


0 








5805 


022122 


000000 


.WORD 


0 








5806 


022124 


000000 


.WORD 


0 








5807 


022126 


000000 


.WORD 


0 








5808 


022130 


000000 


.WORD 


0 








5809 


022132 


000000 


.WORD 


0 








5810 
















5811 


022134 


oocooo 


ADRVEC : 


0 




.•ADDRESSES BETWEEN VECTORS - FILLED BY THE AUTOSIZER. 




5812 


C22136 


000000 


SDHSEL : 


0 




.•DEVICE SELECT PARAMETER - FILLED BY THE AUTOSIZER. 




5813 


022140 


000 


DmRLVL: 


.Br T E 


0 


;8R LEVEL FOR RCVR 




58H 


022141 


000 


DHTlVL: 


.BYTE 


0 


;8R LEVEL FOR XMITTER 




5815 


022142 


00000c 


DHNUM: 


0 




; CONTAINS NUMBER OF THE DH11 UNDER TEST 




5816 


022144 


000000 




0 




;CONTINES NUMBER OF THE LINE UNDER TEST 




5817 






.TABLES USED TO 


SELECT 


XMITTR AND RCVR SPEEDS 




5818 
















5819 






; THE TABLES CONSIST OF 


13. TWO WORD ENTRIES - ONE FOR EACH 




5820 






.-ALLOWABLE BAUD 


RATE. 


THE FIRST WORD IS THE ACTUAL BAUD RATE 




5821 






;IN DECIMAL AND 


THE SECOND WORD IS THE ENCODED BINARY WORD 




5822 






; T HAT SETS THAT 


BAUD RATE IN THE ' t_PR' ' 




5823 
















5824 
5825 


022146 


000000 


XSPTR: 


0 




.•CONTAINS POINTER T 0 FOLLOWING TABLE 




5826 


022'' 50 


000062 


XSPTA8: 


50. 




;50. BAUD 




5827 


022152 


002000 




2000 






5828 


022154 


000113 




75. 




;75. BAUD 




5829 


022156 


004000 




4000 






5830 


022160 


000156 




110. 




;110. BAUD 




5831 


022162 


006000 




6000 






5832 


022164 


002501 




1345. 




; 134.5 BAUD , 




5833 


022166 


010000 




10000 








5834 


022170 


000226 




15C. 




; 7 50 . BAUD 




5835 


022m 


012000 




12000 






5836 


022174 


000310 




200. 




;200. BAUD 




5837 


022176 


014000 




HOOO 






5838 


022200 


000454 




300. 




;300 BAUD 
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5839 


022202 


016000 




16000 


5840 


022204 


001 1 30 




600. 


5841 


022206 


020000 




20000 


5842 


022210 


002260 




1200. 


5843 


022212 


022000 




22000 


5844 


022214 


003410 




1800. 


5845 


022216 


024000 




24000 


5846 


022220 


004540 




2400. 


5847 


022222 


026000 




26000 


5848 


022224 


011300 




4800. 


5849 


022226 


030000 




30000 


5850 


022230 


022600 




9600. 


5851 


022232 


032000 




32000 


5852 


022234 


000000 


R<,PTR; 


0 


585? 










5854 


022236 


000062 


RS p TAB: 


50. 


5855 


022240 


000100 




100 


5856 


022242 


000113 




75. 


5857 


022244 


000200 




200 


5858 


022246 


000156 




no. 


5859 


022250 


000300 




300 


5860 


022252 


002501 




1345. 


5861 


022254 


000400 




400 


5862 


022256 


000226 




15C. 


5863 


022260 


000500 




500 


5864 


022262 


000310 




200. 


5865 


022264 


000600 




600 


5866 


022266 


000454 




300. 


5867 


022270 


000700 
001 1 30 




700 


5868 


022272 




600. 


5869 


0222U 


001000 




1000 

*200. 

1 '00 


5870 


022276 


002260 




5871 


022300 


001100 




5872 


022302 


003410 




^800. 


5873 


022304 


001200 




1200 


5874 


022306 


004540 




2400. 


5875 


022310 


001300 




1300 


5876 


022312 


011300 




4800. 


5877 


022314 


001400 




1400 


5878 


0223 i.S 


022600 




9600. 


5379 


022320 


001500 




1500 


5880 








5881 






.-ADDRESS POJN' 


5882 










5853 


022522 


000000 


ADPTR: 


0 


588*. 


022324 


000000 


VCPTR: 


0 


5885 


022326 


000000 


BRPTR: 


0 


5886 








C007 




AAAAAA 

ouuooo 


TJTFLG: 


0 


58£8 


C22332 


000000 


TIMEA: 


0 


5889 


022334 


000000 


TIME8: 


0 


5890 








5891 


022336 


000000 


CEXJT: 


0 


5892 


022340 


000000 


DPFLG: 


0 


5893 


022342 


000000 


DATCNT: 


0 


5894 


022344 


000000 


DATPAT: 


0 



J 10 
AND VARIABLES 

600. BAUD 
1200. BAUD 
1800. BAUD 
2400. BAUD 
4800. BAUD 
960C. BAUD 

CONTAINS ROINTER TO FOLLOWING TABLE 
50. BAUD 
75. BAUD 
110. BAUD 
134.5 BAUD 
150. BAUD 
200. BAUD 
300 BAUD 
600. BAUD 
1200. BAUD 
1800. BAUD 
2400. BAUD 
4800. BAUD 
9600. BAUD 

T UP TABLES WHEN INPUTTING PARAMETERS 

.•POINTS TO ADDRESS TABLE 
;POINTS TO VECTOR TABLE 
.•POINTS TO BR LEVEL TABLE 

.-FLAG TO ALLOW PRINTING TITLE ONLY ONCE 
; GENERAL PURPOSE TIMERS 



CONTROL-C EXIT FLAG FM ECHO TESTS 
PATTERNS TEST FLAG 
ITERATION COUNTER FOR PATTERNS TEST 
FLAGS TYPE PATTERN 
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5895 

5896 

5897 

5898 

5899 

5900 

5901 

5902 

5903 

5904 

5905 

5906 

5907 

5908 

5909 



022346 
022350 
022352 
022354 
022356 
022360 
022362 
022364 
022366 
022426 



000000 
000000 
000000 
000012 
000000 
000000 
000000 
000000 
000020 
000000 



022430 000000 
022432 000000 



d ATFlG: 

SINGLE: 

RETFLG: 

PAT L IM: 

RANA: 

RAN8: 

UMSK: 

EXFLAG: 

6C8UF: 

DHFILL: 

FILLA: 
FILLS: 



0 
0 

1 0. 

0 

0 

0 

0 

.8LKW 

0 

0 
0 



It. 



DATA PATTERNS <CR> SEQUENCE F L AG 
HOLDS SINGLE CHAR TEST PATTERN 
ECHO TEST RE TURN FLAG FM SETUP 
PATTERNS TESTS ITERATION COUNT 
RANDOM NO. ACCUMULATORS 

CHAR LENGTH BIT CLR MASK 

ECHO TEST EXIT FLAGS 

DATA BUFFER FOR SINGLE LINE ECHO TEST 

FILL CHAR AND COUNT FOR SINGLE LINE 

ECHO TESTS 

TEMP STORAGE FOR FILLER CHAR 
SAME FOR COUNT 



L 10 
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59 iO 
ecu 1 










rctfi C T Muft AOf\ CDODQ MCCCAT Dl If C CD 1 * 

• SoML 5»ANDAHl) tHHUH ntbbAo oU^fcK^ 












CQl 5 
57 1 
CQl T 

39 1 5 


















• * 


CQl / 

57 14 












57 1 j 










. r hie adm a t j ruu rno Mice catc i 


rnii 

5710 












CQ1 7 

591 / 


02<:4 54 


A/ 7C 1 4. 

04 I o 


A5A 11i 

0201 16 


AC/ 1 AC 


ryi , ACTT7 • AlHAl C V MC MOD W C DDOD _ r» DODDC f\ 1 1 AlC A* * 


57lo 


A55/ i 5 


n/ <*L/ / A 
046440 


A/ ^ CAC 

Oho j0!> 


AC 1 1 1 7 

05 I 1 1 / 




CQ1 A 
57 I 9 


rvn/ ca 
02<:4 30 


A"JA1 11 

020 I 51 


AC 1 1 AC 

05 1105 


A/ 7C 5 5 




C55A 
3 >V0 


ftO")/ cz. 


A5A1 '3*3 

0<r0 12c 


A5AAC C 
0c005 5 


AC 1 1 A/ 
05 1 1 04 




5 y <? I 


02<:4O'-'» 


AC A 1 1 7 

0 j0 1 i / 


A/ 5C 5A 


A5A1 A/ 

OcrO 104 




CP*)') 


0<:24 72 


A/ / C 1 / 
0445 I A 


A/ Idi 

0425 16 


A51 / / A 

Ot: '440 




57V 5 


OcVjOO 


A5A/Y/ A 

0c0040 


AAA 
000 






CQl/ 

5W4 


A J5CA7. 


A/ A 

040 


ACAACA 
050050 


A5/ CAl 


DH 1 : .ASCIZ 1 (PC) CURLPR OEVADR REGADR WAS S/8 1 


coo c 
57^ 5 


A55C 1 A 

OcVj 10 


020040 


A/ 1 / / A 


AC 1 1 5C 




5920 


A55C 1 <L 
Occ 5 I O 


ACA1 1 / 
050 114 


A5A1 55 
\JC\J\CC 


A/ 5A/ A 

04^040 




5W r 


A55C "5/ 


AC 7 1 AC 

055 IOj 


A/ 5 1 A 1 
04 10 1 


A5A1 55 






A55C 1 0 
\JCCJJC 


AC 1 A/ A 

Oj 1040 


A/ 7CAC 
0*»5505 


A/ 5 1 A 1 




CQOQ 


0cV540 


A5A1 "5*3 


A5AA/ A 

OcOOAO 


A/ rC57 
04L5-C ' 




57 5U 


U(C(£ J*»0 


A5A1 57 
UcU ic j 


A5AA/. A 


A5AA/L A 
U/CUU4U 




375 1 


0cV554 


A57C5* 

OcOco 


AAA 1 A 5 
000 I0i£ 






CQ75 










C v 'CAl 


5755 


r\~)Z CAA 


AA1 1 It 
0OI 1 10 

AA1 1 /LA 
UU 1 ■ DO 


r\z 1 C7A 

Oc: 1 5/u 


AA 1 -| 11 
UU 1 1 D*» 


CQ7/ 
J7JH 




AOl 1 7Pi 


nm ■; 75 

UU i I ' c 


co.7c 

J7JJ 


A55C7Z. 
K/CCJ f 4 


on/win 

UUU> AJU 








CQ7i, 
J 7 JO 


A55C7-C 


AAA 
UUU 
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5960 


022730 


0^2520 


020104 


04-4514 




5961 


022716 


042516 


021440 


020040 
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5966 


022745 
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052131 
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044507 
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051105 
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042440 


051122 


051117 


5982 


023060 


r\ y y / A 

026440 


042040 


047522 


5983 


023066 
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050120 


Ay *M AT 
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coo / 

5984 


023074 


0471 1 1 
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020043 


CHOC 

5V85 


023 i 02 


AAAA/ A 
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5986 




















CQOO 

5Voo 










5989 


023104 


Ay / C 

044523 


A/ 7C 1 / 

047514 


A / 7/ / A 

047440 


5990 


023112 


A/ *1 y 

042526 


043122 


Ay 7f 4 y 

047514 


C Art1 

5991 


AT71 

023120 


A "i A 4 *1 "7 

020127 


AC 4 4 AC 

051 105 


047522 




02.51 26 


A^A1 T5 


A"5AAC C 

020055 


AC 1 1 A/ 

051 1 04 


coo? 


02.51.54 


AC A1 1 "7 

0501 1 f 


Ay TC OA 

04<?520 


A *5A1 A/ 

020104 


3994 


023142 


A/ / C -1 / 


A/ lrii 

042516 


A"> 1 / / A 

021440 


COAC 

399b 


nl7i eft 

0231 50 


A A 

020040 


AAA 

000 




3996 










CQ07 

399/ 










CCY10 

3990 












A171 CI 

023153 


\cc 


A/ 1 CAC 

041505 


A/ / CAC 

044505 
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023160 


t\l It "W 

042526 


A">A4 

020122 


A y AC A^ 

040506 


6001 


023166 


AC 1 c 1 / 

051 514 


A TA1 AC 

020105 


A/ "91 4 4 

04 71 ll 


600*: 


0231 r4 


A/ "5C5/ 

0425<> 


AC 1 1 11 

051122 


ACA1 *1C 

050125 


6003 


023202 


020124 


A T AA C C 

020055 


AC 1 1 A/ 

051 104 


6004 


023210 


ACA1 1 "7 

0501 1 f 


A / 1 C 1 A 

042520 


AlA 1 A / 

020104 


6003 


02 .5216 
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021 440 
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023224 
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020040 
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600 r 










600o 










600V 










aai a 
60 It) 






AC T1 1 

053116 


A/ ilAI 

046101 


607 1 




A/ "71 1 1 

042 i 1 1 


i\i 1A/ A 

042040 


AC "11 A1 

052101 


AA1 3 

60 1 d 


023242 


020 10 1 


A/ "71 1 1 

04 fill 


AC1//A 

U51440 


6013 


023230 


A/ Z1 1 1 

0461 1 1 


U2U1 1 f 


A "5 AAC C 

020055 


6014 


023256 


051104 


050117 


042520 


DO I > 


A3734L/ 
U<:3c04 


U2U 104 


A/ /Ciy 
U4*Ol4 


A/ 3C 1 £ 
042316 


6016 


023272 


02 7440 


020040 


000 


6017 


023277 


040 


050050 


024503 


6018 


023304 


020040 


041440 


051125 


6019 


023312 


050' 14 


020122 


041440 


6020 
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023320 


040510 


020122 


020043 


023326 


053440 


051501 


042101 
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EM4: 



.ASCIZ 'BYTE COUNT REGISTER ERROR - DROPPED LINE # 



.-INFORMATION F0H MESSAGE 5 

EM5: .ASCIZ ' CURRENT ADDRESS REGISTER ERROR - DROPPED LINE # 



; INFORMATION FOR MESSAGE 6 

EM6: .ASCIZ 'SJL0 OVERFLOW ERROR - DROPPED LINE # 



; INFORMATION FOR MESSAGE 7 

EM7: .ASCIZ 'RECEIVER FALSE INTERRUPT - DROPPED LINE * 



; INFORMATION FOR MESSAGE 10 

EM10: .ASCIZ ' INVALID DATA IN SILO - DROPPED LINE * ' 



DH2: 



.ASCIZ 1 (PC) CURLPR CHAR # WASADR SHBADR WAS 



S/8* 



N 10 
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.EVEN 

D f 2 : .WORD $ERRPC.CURLPR.SREG0,$REG1.$REG2,$R£G3,$REG4,0 



; INFORMATION FOR MESSAGE 11 

EM11: .ASCIZ 'DATA ERROR - LINE # ' 

; INFORMATION ^0R MESSAGE 12 

EM12: .ASCIZ ' TEST TIMEOUT - DROPPED LINE # 



DH3: 



.ASCIZ ■ (PC) CURLPR RT0TAL X TOTAL RD0NE ' 



.EVEN 

DT3: .WORD $ERRPC. CURL PR. $TMP0,$TMP1 ,RD0NE .0 
; INFORMATION FOR MESSAGE 13 

DT4: .WORD $TMP0,$TMP1 ,$TMP2,STMP3,$TMP4,$TMP5,STMP6.0 
DF1: .8YTE 0.1.1,1.1.1.1.0 



; INFORMATION FOR MESSAGE 14 

EM14: .ASCIZ '8US ERROR TRAP TO 04' 



DH4; 



.ASCIZ ' (PC) (PS) (SP) TRAPPC TRAPPS* 
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15 



31 PAGE 
STANDARD 



132 
ERROR 



B 11 



ME S SAG BUFFERS 



SFO 0131 
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024044 
024052 
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024066 

024074 
024102 
024110 



024112 
024120 
024126 
024134 
024142 
024150 
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024162 
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DH5: 
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* .EVEN 

001176 DT5: .WORD SERRPC , $ TMP0 . SRE G6 , $RE G 1 . SRE G2 , 0 
000000 

; INFORMATION FOR MESSAGE 15 

044440 EM15: .ASCIZ 'RSVD INSTR TRAP TO 10* 

052040 

047524 

INFORMATION FOR MESSAGE 16 

.ASCIZ 'SINGLE LINE ECHO TEST - INTR WAIT TIMfOUT' 



.ASCI? ' (PC *DEVADR LINE (SCR) CURL PR EXFlAG' 



046101 
052101 
027461 
052124 
042524 
047117 
024040 
020040 
051104 
047111 
052503 
020040 
052116 
024224 
001116 
021570 



042524 
047111 
020060 
051105 
052123 
000105 
041520 
042504 
020040 
020105 
046122 
041511 
000 

021514 
001162 



.WORD SERRPC ,$REG1 ,L INE .STMPO. CURL PR. EXFLAG. 0 



; INFORMATION FOR MESSAGE 17 

047122 EM17: .ASCIZ 'ALTERNATING 1/0 PATTERN TfST DONE* 

020107 

040520 

020116 

042040 



020051 DH6: 

040526 

046040 . 

020040 

051120 

052517 



.ASCIZ ' (PC) DEVADR I INE CURLPR ICOUNT' 



.EVEN 
022144 DT7: 
000000 



. WORD SERRPC . DHADR ,L INE .CURLPR. $RE GO . 0 
.•INFORMATION FOR MESSAGE 20 
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042514 
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020104 
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042524 
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052040 
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020124 


047504 


042516 
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61 75 










6176 










6177 










6178 


024501 


104 


052101 


020101 


6179 


024506 


040520 


052124 


051105 


6180 


024514 


051516 


052040 


051505 


6181 


024522 


020124 


044524 


042515 


6182 


024530 


052517 


000124 




6183 


024534 


024040 


041520 


020051 


6184 


024542 


020040 


042504 


040526 


6185 


024550 


051104 


020040 


046040 


6186 


024556 


0471 1 1 


020105 


020040 


6187 


024564 


052503 


046122 


051120 


6183 


024572 


020040 


041511 


052517 


6189 


024600 


052116 


020040 


040520 



31 PAGE 
STANDARD 



133 
ERROR 



C 11 



ME S SAG BUFFERS 



SEO 01 32 



EM20: .ASCIZ '8INARV UP COUNT PATTERN TEST DONE ' 



.-INFORMATION FOR MESSAGE 21 

EM21: .ASCIZ 'BINARY DOWN COUNT PATTERN TEST DONE ' 



; INFORMATION FOR MESSAGE 22 

EM22: .ASCIZ 'RANDOM DATA PATTERN TEST DONE' 



; INFORMATION FOR MESSAGE 23 

EM23: .ASCIZ 'SINGLE CHAR PATTERN TEST DONE' 



; INFORMATION FOR MESSAGE 24 

EM24: .ASCIZ 'TYPED BUFFER PATTERN TEST DONE ' 



; INFORMATION FOR MESSAGE 25 

EM25: .ASCIZ 'DATA PATTERNS TEST TIMEOUT' 

DH7: .ASCIZ ' (PC)' DEVADR LINE CURLPR ICOUNT PATCDE ' 
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6190 024606 041524 042504 000 

6191 024614 .EVEN 
6 92 0246H 001116 021514 022144 DT10: 

6193 u24622 021570 001162 001164 

6194 024630 000000 
6195 

6196 .EVEN 



D 11 



SEQ 0133 



. WORD $E RRPC . DH ADR . L I NE . C URL PR . SREGO , $RE G 1 , 0 



E 11 

CZDHN-D MACY11 30AC1052) 27-DEC-78 15:31 PAGE 135 

CZDHND.P1 1 27-DEC-78 15:28 MISCELANEOUS TABLES AND MESSAGE AND DATA BUFFERS 



SfQ 0134 



6197 

6198 

6199 

6200 

6201 

6202 

6203 

6204 

6205 

6206 

6207 

6208 

6209 

6210 

6211 

6212 

6213 

62K 

6215 

6216 

6217 

6218 

6219 

6220 

6221 

6222 

6223 

6224 

6225 

6226 

6227 

6228 

6229 

6230 

6231 

6232 

6233 

6234 

6235 

6236 

6237 

6238 

6239 

6240 

6241 

6242 

6243 

6244 

6245 

6246 

6247 

6248 

6249 

6250 

6251 

6252 



024632 

024640 

024646 

024654 

024662 

024670 

024676 

024701 

024706 

024714 

024722 

024726 

024734 

024742 

024750 

024756 

024764 

024772 

025000 

025006 

025014 

025022 

025030 

025036 

025041 

025046 

025054 

025062 

025070 

025076 

025104 

025112 

025120 

025126 

025134 

025142 

025150 

025156 

025163 

025170 

025176 

025204 

025212 

025220 

025226 

025234 

025237 

025244 

025252 

025260 

025266 



005015 
026516 
030461 
020101 
041101 
020131 
005015 

015 
044524 
030510 
006440 
005015 
051440 
042104 
043040 
051111 
030510 
005015 
053040 
020122 
051505 
020122 
020124 
00501 5 

015 
020105 
042040 
020105 
052103 
040520 
042524 
005015 
044514 
030461 
040440 
051523 
054522 
047111 

015 
046101 
030510 
052103 
042104 
026440 
040440 
005015 

015 
046440 
042523 
040440 
051501 



055103 
020104 
042040 
042522 
0461 1 1 
042524 

000 
052012 
043516 
020061 
000012 
054524 
051103 
042522 
051117 
052123 
006461 
054524 
041505 
042101 
020123 
044506 
044104 

000 
052012 
044104 
053105 
042523 
047511 
040522 
006522 
0471 1 1 
020104 
051440 
042104 
026440 
040440 
005015 
044412 
042111 
020061 
051117 
042522 
052040 
040507 

000 
054412 
051525 
042514 
020124 
020124 



044104 
044104 
052101 
044514 
052111 
052123 

051505 
042040 
020043 

042520 
040440 
051523 
043040 
042040 
000012 
042520 
047524 
051104 
047506 
051522 
030461 

050131 
030461 
041511 
042514 
020116 
042515 
000012 
040526 
044104 
051103 
042522 
052040 
040507 
000 
053116 
042040 
042526 
040440 
051523 
054522 
047111 

052517 
020124 
052103 
0425U 
047117 



.S8TTL MISCELANEOUS TABLES AND MESSAGE AND DATA BUFFERS 

;;*************************************************************** 

.-MISCELLANEOUS MESSAGES 

;;*************** ***************** A ****************************** 

TITLE: .ASCIZ <1 5x1 2>* CZDHN-D DH11 DATA RELIABILITY TEST'<15><12> 



TITLE2: .ASCIZ <15x12>*TESTING DH11 # '<15><12> 



INMSG1 : .ASCIZ <15x12>'TYPE SCR ADDRESS FOR FIRST DH11'<15X12> 



INMSG2: .ASCIZ <15><12>'TYPE VECTOR ADDRESS FOR FIRST DHlT<15x12> 



INMSG3: .ASCIZ <15><12>'TYPE DH11 DEVICE SELECTION PARAMETERS! 5x1 2> 



INMSG4: .ASCIZ <1 5x1 2>* INVALID DH11 SCR ADDRESS - TRY AGAIN'<15x12> 



INMSG5: .ASCIZ <15><12>'INVALID DH11 VECTOR ADDRESS - TRY AGAIN'<1 5><12> 



INMSG6: .ASCIZ <15x12>'Y0U MUST SELECT AT LEAST ONE DH11'<15X12> 



F 11 
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SEO 0135 



6253 

6254 

6255 

6256 

6257 

6258 

6259 

6260 

6261 

6262 

6263 

6264 

6265 

6266 

6267 

6268 

6269 

6270 

6271 

6272 

6273 

6274 

6275 

6276 

6277 

6278 

6279 

6280 

6281 

6282 

6283 

6284 

6285 

6286 

6287 

6288 

6289 

6290 

6291 

6292 

6293 

6294 

6295 

6296 

6297 

6298 

6299 

6300 

6301 

6302 

6303 

6304 

6305 

6306 

6307 

6308 



025274 
025302 
025305 
025312 
025320 
025326 
025334 
025342 
025350 
025355 
025362 
025370 
025376 
025404 
025412 

025417 

025424 

025432 

025440 

025446 

C25454 

025462 

025470 

025476 

025504 

025512 

025514 

025522 

025530 

025536 

025541 

025546 

025554 

025562 

025566 

025574 

025602 

025610 

025616 

025617 

025624 

025632 

025640 

025646 

025654 

025662 

025670 

025676 

025704 

025712 
025720 
025726 
025734 
025741 



020105 
005015 

015 
042522 
047503 
042525 
051440 
052040 
043516 

015 
020105 
05K40 
044524 
051101 
051105 

015 
020105 
043117 
042522 
024040 
024514 
042527 
041505 
024040 
020122 
000012 
005015 
020040 
04^.524 
035123 

015 
044524 
0471 1 1 
006440 
005015 
021440 
051501 
050120 

000 

015 
0?0105 
047524 
054040 
020114 
051105 
051101 
043040 
020122 
051105 

047516 
023461 
042522 
042116 
116 



044104 
000 
042012 
051523 
052116 
020042 
040524 
051505 
005015 
052012 
044514 
046105 
047117 
046501 
005015 

052012 
047516 
040440 
051523 
041517 
041040 
047105 
047524 
030061 
030062 

044104 
051440 
052123 
000 
052012 
043516 
020105 
000012 
044514 
020040 
042040 
042105 

046012 
020043 
040524 
047524 
042040 
020122 
051105 
046522 
047440 
006522 

042040 
020123 
043040 
005015 
020117 



030461 

050105 
021040 
047111 
047524 
052122 
044524 

000 
050131 
042516 
041505 
050040 
052105 

000 

050131 
020056 
042104 
051505 
040524 
052105 
053040 
051522 
047440 
006451 

021440 
040524 
041511 

051505 
046040 
020043 

042516 
053*40 
047522 
005015 

047111 
051040 
020114 
040524 
052101 
050040 
020122 
051105 
051126 
000012 

030510 
042527 
052517 
000 
044 ',04 



INMSG7: .ASCIZ <15x12>'DEPRESS "CONTINUE" TO START TESTING'<15xl2> 



INMSGA: .ASCIZ <15X12>'TYPE LINE SELECTION PARAMETER' <1 5><1 2> 



VCWC: .ASCIZ <15><12>'TYPE NO. OF ADDRESSES (OCTAL) BETWEEN VECTORS (10 OR 20) , <15><1 



6TMSG1: .ASCIZ <15><12>'DH# STATISTICS: ' 



STMSG2: .ASCJZ <15x12>'TESTING LINE » '<15x12> 



STMSG3: .ASCIZ <15x12>'LlNE * WAS DROPPED" <1 5x1 2> 



STMSG4: .ASCIZ <15><12> 't INE * RTOTAL XTOTAL DATERR PARERR FRMERR 0VRERR'<15x12> 



.•MESSAGES USED BY THE AUTOSIZER. 

MSG1: .ASCIZ /NO DH1TS WERE FOUNDA'1 5><12> 



MSG2: .ASCIZ /NO DH RECEIVER INTERRUPT 0CCURRED/<1 5><12> 



CZDHN-D MAC V 1 30A(1052) 27-DFC-78 15:31 PAGE 137 

CZDHND.P1 1 27-DEC-78 15:28 M1SCELANE0US TA8LCS AND 
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SEO 0136 



6309 


025746 


051040 


0-1505 
020122 


044505 






6310 


025754 


042526 


047111 






6311 


025762 


042524 


051122 


050125 






6312 


025770 
025776 


020124 


041517 


052503 






6313 


051122 


042105 


005015 






6314 


026004 


000 










6315 


026005 


116 


0201 17 


046504 


MSG3: 


.ASCIZ 


6316 


026012 


030461 


041055 


020102 






6317 


026020 


047111 


042524 


051122 






6318 


026026 


050125 


020124 


041517 






6319 


026034 


052503 


051122 


042105 






6320 


026042 


006456 


000012 








6321 


026046 


C20040 


000040 




SPACE: 


.ASCIZ 


6322 
6323 


026052 


005015 


044104 


030461 


DEVMAP: 


.ASCI J 


026060 


020054 


046504 


030461 






6324 


026066 


041055 


020102 


042504 






6325 


C26074 


044526 


042503 


046440 






6326 


C26102 


050101 


006472 


012 






6327 


026107 


015 


042012 


030510 




.ASCII 


6328 


026114 


020061 


020040 


044104 






6329 


026122 


030461 


020040 


042040 






6330 


0261 30 


03051 5 


026461 


041102 






6331 


026136 


020040 


042040 


030515 






6332 


026144 


026461 


041102 








6333 


0261 50 


00501 5 


042101 


051522 




.ASCIZ 


6334 


026156 


020040 


053040 


041505 






6335 


026164 


020124 


020040 


040440 






6336 


0261 72 


051 1C4 


020123 
053C'«0 


02C040 






6337 


026200 


020C40 


041505 






6338 


026206 


006524 


006412 


000012 






6339 










.MESSAGES FOR 


6340 














6341 


026214 


020040 


006440 


000012 


EC: 


.ASCIZ 


6342 


026222 


C00040 






EC2: 


.ASCIZ 


6343 


026224 


020040 


005015 


OOC 


EC3: 


.ASCIZ 


6344 


026231 


015 


051412 


047111 


ECMSG1: 


.ASCIZ 


6345 


026236 


046107 


020105 


044514 






6346 


026244 


042516 


042440 


044103 






6347 


026252 


0201 1 7 


042524 


052123 






63^8 


026260 


026440 


041440 


0471 1 7 






6349 


026266 


042516 


052103 


052040 






6350 


026274 


051105 
020114 


044515 


040516 






6351 


026302 


047524 


042040 






6352 


026310 


030510 


020061 


042524 






6353 


026316 


052123 


046040 


047111 






6354 


026324 


006505 


000012 








6355 














6356 














6357 


026330 


00501 5 


054524 


042520 


ECMSG2. 


.ASCiZ 


6358 


026336 


046040 


047111 


020105 


6359 


026344 


020043 


030050 


020060 






6360 


026352 


020055 


033461 


030040 






6361 


026360 


052103 


0^6101 


000051 






6362 














6363 


026366 


005015 


042524 


052123 


ECMSG3: 


. AS, 12 


6364 


026374 


047m 


020107 


044514 







/NO DM11-BE INTERRUPT OCCURRED. /<15><12> 



/ / 

<15x12>/DH11. DK11-88 DEVICE MAP:/<15><12> 



<15><12>/DH11 DH11 DM1 1-88 DM1 1 -88/ 



<15><12>/ADRS VECT 



ADRS 



VECT/<15x12x15x12> 



•<15><-12> 
' *<15><12> 

<15x1?>'S!NGLE LINF ECHO TEST - CONNECT TERMINAL TO DH11 TEST LINE'<15> 



ASCiZ <15x12>'TYPE LINE # (00 - 17 OCTAL) * 



AS, 12 05><12>'TESTINC I INE * - GO TYPE IN ON TEST LlNE , <15x12> 
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3EQ 0137 



6365 

6366 

6367 

6368 

6369 

6370 

6371 

6372 

6373 

6374 

6375 

6376 

6377 

6378 

6379 

6380 

6381 

6382 

6383 

6334 

6385 

6386 

6387 

6388 

6389 

6390 

6391 

6392 

6393 

6394 

6395 

6396 

6397 

6398 

6399 

6400 

6401 

6402 

6403 

6404 

6405 

6406 

6407 

6408 

6409 

6410 

6411 

6412 

6413 

6414 

6415 

6416 

6417 

6418 

6419 

6420 



026402 
026410 
026416 
026424 
026432 
026440 

026445 
026452 
026460 
026466 
026474 
026502 
026510 
026516 
026524 
026532 
026536 
02o544 
026552 
026560 
026566 
026574 
026602 
026610 
026616 
026624 
026632 

026636 
C26644 
026652 
026660 
02666* 
026674 

026701 
026706 
026714 
026722 

026724 
026732 
026740 
026746 
026754 
026762 

026767 
026774 
027002 
027010 
027016 
027024 

027025 



042516 
026^.40 
054524 
020116 
051505 
042516 

015 
035105 
052116 
020103 
044530 
047503 
026514 
042440 
052502 
006535 
005015 
052517 
020124 
040510 
046042 
054450 
02451 G 
005015 
046523 
020122 
020104 

00501 5 
044514 
052111 
042105 
054522 
0^7111 

015 
044505 
050123 
000077 

005015 
044514 
051126 
042105 
054522 
047111 

015 
020122 
044124 
033440 
034040 

000 



02144C 
043440 
042520 
047117 
020124 
C05015 

052012 

055440 

047522 

0475?4 

056524 

052116 

020105 

044103 

043106 

000012 

047504 

053440 

047524 

043516 

051120 

047440 

037440 

051124 

052111 

050123 

000077 

0471 1 1 
020104 
0^1440 
026440 
040440 
005015 

051012 
042526 
042505 



047111 
020104 
051440 
026440 
040440 
005015 

041412 
042514 
024040 
020054 
020051 



020040 
0201 1 7 
044440 
052040 
044514 
000 

050131 ECMSG4: 

047503 

026514 

042440 

055440 

047522 

047524 

0201 1 7 

051105 

05444C LPMSG: 

047101 

041440 

020105 

020042 

020122 

000040 

047101 XSMSG1: 
0 ;24 
042505 



.ASCI? <15><12>*TYPF: f CONTROL -C TO EXIT] [CONTROL -E TO ECHO BUFFER] V15><12> 



.ASCIZ <15x12>'DO YOU WANT TO CHANGE 'IPR" (V OR N) ? ' 



.ASCIZ <15><12>' TRANSMITTER SPEED ?' 



040526 XSMSG2: -ASCIZ <1 5x1 2>' INVALID XMI T SPEED - TRY AGAIN'<15x12> 
046530 
042520 
052040 
040507 
000 

041505 RSMSG1: .ASCIZ <15x12>'RECEJVER SPEED ?' 

020122 

020104 

040526 RSMSG2: .ASCIZ <1 5><12>* INVALID RCvR SPEED - TRY AGAIN'<15><12> 
041522 
042520 
052040 
040507 
000 

040510 CLMSG1: .ASCIZ <15><12>'CHAR LENGTH (6. 7. OR 8) ? * 

043516 

026066 

051117 

0200^7 



015 044412 053116 CLMSG2: .ASCIZ < - 15><12>' INVALID CHAR LENGTH - TRY AGAIN'<'15x12> 
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6421 


027032 


046101 


042111 


041440 


6422 


027040 


040510 


020122 


042514 


6423 


027046 


043516 


044124 


026440 


6424 


027054 


052040 


054522 


040440 


6425 


027062 


040507 


047111 


005015 


6426 


027070 


000 




6427 










6428 


027071 


015 


047012 


027117 


6429 


027076 


047440 


020106 


052123 


6430 


027104 


050117 


041040 


052111 


6431 


0271^2 


020123 


030450 


047440 


6432 


027120 


020122 


024462 


037440 


6433 


027126 


000040 






6434 










6435 


027.30 


005015 


0471 n 


040526 


6436 


027136 


044514 


020104 


047516 


6437 


G27144 


020056 


052123 


050117 


6438 


027152 


04104C 


052111 


020123 


6439 


0271 6C 


020055 


051124 


020131 


6440 
6441 


027166 


043501 


044501 


006516 


0271 74 


000012 






6442 










6443 


027176 


005015 


040520 


044522 


6444 


027204 


054524 


051440 


046105 


6445 


027212 


041505 


044524 


047117 


6446 


027220 


024040 


026105 


047440 


6447 


027226 


020054 


051117 


036040 


6448 


027234 


051103 


024476 


0V44C 


6449 


027242 


000040 






6450 










6451 


027244 


00501 5 


047111 


040526 


6452 


027252 


044514 


020104 


040520 


6453 


027260 
027266 


044522 


054524 


026440 


6454 


052040 


054522 


040440 


6455 


027274 


040507 


047111 


005015 


6456 


027302 


000 






6457 










6458 


027303 


015 


043012 


0461 1 1 


6459 


027310 


042514 


020122 


044103 


6460 


027316 


051101 


041501 


042524 


6461 


027324 


020122 


020077 


000 


6462 










6463 


027331 


015 


043012 


0461 1 1 


6464 


027336 


042514 


020122 


047503 


6465 


027344 


047125 


020124 


000077 


6466 


027352 


005015 


042523 


042116 


6467 


027360 


046440 
024055 


042117 


020105 


6468 


027366 


020131 


051117 


6469 


0?7374 


047040 


020051 


000040 


6470 


027402 


00501 5 


054524 


042520 


6471 


027410 


051440 


047105 


020104 


6472 


027416 


052502 


043106 


051105 


6473 


027424 


026440 


052040 


051105 


6474 


027432 


044515 


040516 


042524 


6475 


027440 


053440 


052111 


020110 


6476 


027446 


047503 


052116 


047522 



MISCELANEOUS TABLES AND MESSAGE \ND DATA BUFFERS 



SEQ 0158 



.ASCIZ <15><12>'\'0. OF STOP BITS (1 OR 2) ? ' 



.ASCJZ <15x12>' INVALID NO. STOP BITS - TRY AGAIN'<15><12> 



•ASCIZ <15><12>'PARITY SELECTION (E. 0. OR <CR>) ? ' 



- TRY AGAIN'<15><12> 



.ASCIZ <15x1?>'FUlER CHARACTER ? ' 
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6477 

6478 

6479 

6480 

6481 

6482 

6483 

6484 



027454 
027462 
027470 
027476 
027504 
027512 
027520 



026514 
005015 
042507 
046501 
020123 
020122 
000 



006503 
044103 
050040 
052105 
054450 
024516 



000012 
047101 
051101 
051105 
047440 
020077 
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MISCELANEOUS 
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SNMSG3: .ASCI7 <1 5 ><12>' CHANGE P<\PAMErtRS (Y 



OR N) 



K 11 
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SEO OHO 



6485 

6486 

6487 

6h88 

6489 

6490 

6491 

6492 

6493 

6494 

6495 

6496 

6497 

6498 

6499 

6500 

6501 

6502 

6503 

6504 

6505 

6506 

6507 

6508 

6509 

6510 

6511 

6512 

6513 

6514 

6515 

6516 

6517 

6518 

6519 

6520 

6521 

6522 

6523 

6524 

6525 

6526 

6527 

6528 

6529 

6530 

6531 

6532 

6533 

6554 

6535 

6536 

6537 

6538 

6539 

6540 



027521 

027526 

027534 

027542 

027550 

027556 

027564 

027572 

027577 

027604 

027612 

02 7 620 

027626 

027631 

027636 

027644 

027652 

027660 

027666 

027674 

027702 

027710 

027716 

027724 

027732 

027740 

027746 

027754 

027762 

027770 

027776 

030002 

030010 

030016 

030024 

030032 

030040 

030042 

030050 

030056 

030064 

030072 

030075 

030102 

030110 

030116 

030124 

030132 

030140 

030146 

030154 



015 
020101 
051105 
051505 
041440 
052103 
020124 
051105 

015 
042506 
042532 
020061 
024462 

015 
046101 
055111 
051124 
044501 
005015 
051105 
042520 
026101 
026122 
051117 
024476 
005015 
051123 
052040 
045503 
040520 
006516 
005015 
044514 
052124 
020055 
043501 
000012 
005015 
051440 
020105 
041440 
005015 

015 
020105 
051505 
043106 
052040 
040516 
052111 
052116 
006503 



042012 
040520 
051516 
051524 
047117 
052040 
052512 
005015 
041012 
020122 
037440 
020055 
000 
044412 
042111 
020105 
020131 
006516 
040520 
020116 
037440 
026125 
026123 
036040 
006440 
042523 
033460 
020117 
047440 
052124 
000012 
047111 
020104 
051105 
051124 
044501 

054524 
047111 
042524 
040510 
000 
052012 
047111 
020124 
051105 
051105 
042524 
020110 
047522 
000012 



052101 
052124 
052040 
026440 
042516 
051505 
050115 
000 
043125 
044523 
024040 
030465 

053116 
051440 
020055 
043501 
000012 
052124 
054524 
024040 
026104 
020102 
051103 
000012 
020124 
030475 
047514 
020116 
051105 

040526 
040520 
020116 
020131 
006516 

042520 
046107 
052123 
020122 

050131 
052040 
052502 
026440 
044515 
053440 
047503 
026514 



.•MESSAGES FO INPUTTING PATTERNS TES T PARAMETERS 

DPMSG1: .ASCIZ <15><12>'DATA PATTERNS TESTS - CONNECT TEST JUMPER ' <1 5><1 2> 



DPMSG2: .ASCIZ <1 5><1 2> 'BUFFER SIZE ? (1 - 512)' 



DPMSG3: .ASCIZ <1 5><12> ' INVAL ID SIZE - TRY AGAIN'<15x12> 



DPMSG4: .ASCIZ <1 5x1 2> 1 PATTERN TYPE ? (A.U.D.R.S.B OR <CR» '<15x12> 



DPMSG5: .ASCIZ <15><12>'SET SR07=1 TO LOCK ON PATTERN'<15x12> 



DPMSG6: .ASCIZ <15><12>* INVALID PATTERN - TRY AGAIN' <1 5x1 2> 



DPMSG7: .ASCIZ <15x12>'TYPE SINGLE TEST CHAR '<15x12> 



DPMSGA: .ASCIZ <15x12>*TYPE IN TEST BUFFER - TERMINATE WITH C0NTRa-C'<15><12> 



030160 000020 



.EVEN 

.-ERROR STATISTICS TABLES 
R TOTAL : .8LKW 16. 



.•TOTAL CHARS RCVD PER LINE 
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6541 

6542 

65*3 

6544 

6545 

6546 

6547 

6548 

6549 

6550 

6551 

6552 

6553 

6554 

6555 

6556 

6557 

6558 

6559 

6560 

6561 

6562 

6563 

6564 

6565 

6566 

6567 

6568 

6569 

6570 



030220 000020 

030260 000020 

030320 000020 

030360 000020 

030420 000020 



030460 
030462 
030464 
030466 

030470 
030472 



000000 
000000 
000000 
000000 

000000 
000000 



030474 001130 



032754 001130 
034104 000000 
000001 
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MISCELANEOUS TABLES AND MESSAGE AND DATA BUFFERS 



SEO 0141 



XTOTAL: 


• 8LKW 


16. 


DATERR: 


.8LKW 


16. 


PARERR: 


.BLKW 


16. 


OVRERR: 


.8LKW 


16. 


FRMERR: 


.8LKW 


16. 


.-STATISTICS TABLES 


DEPTR: 


0 




PEPTR: 


0 





ORPTR 
TRPTR 



0 
0 



R8FPTR: 0 
TBFPTR: 0 



TOTAL CHARS XMITTED PER LINE 

TOTAL DATA COMPARE ERRORS PER LINE 

TOTAL PARITY ERRORS PER LINE 

TOTAL OVERRUN ERRORS PER LINE 

TOTAL FRAMING ERRORS PER LINE 



; CONTAINS POINTERS TO STAT TABLES 



.•CONTAINS INPUT BUFFER POINTER 
.•CONTAINS OUTPUT BUFFER POINTER 



;600. WORD RECEIVER INPUT BUFFER 
RBUF: .8LKW 600. 



;600(10) BYTE TRANSMITTER OUTPUT DATA BUFFER 
.8LK8 600. 



.EVEN 
T8UF : 



EN6UFS; 
.END 



;MARK END OF BUFFERS 
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31 PAGE K4 
CROSS REFERENCE 



— M 1-1 
TABLE — USER SYMBOLS 



SEO 014? 



ABASE = 

ACDU1 = 

ACDW2 = 

ACPUOP= 

ADDWO = 

ADDW1 = 

ADDW10= 

ADDW1 1 = 

ADDW12= 

ADDW'1 3= 

ADDWK= 

ADDU1 5= 

ADDW2 = 

ADDW3 = 

ADDW4 = 

ADDW5 = 

A0DW6 = 

ADDW7 = 

ADDW8 

ADDW9 = 

ADEVCT= 

ADEVM = 

ADPTR 

ADRVfcC 

AENV = 

AENVM - 

AFATAL= 

AMADR1- 

AMAOR2 

AMAOR3= 

AMADR4= 

AWAMS1= 

AflAMS2= 

AMAMS3= 

AMAMS4= 

AMSGAD- 

AMSGLG= 

AMSGTY= 

AMTYP1= 

AMTYP2- 

AMTYP3= 

AMTYP4- 

APASS - 

APRIOR= 

APTCSU= 

APTENV- 

APTSIZ- 

APTSPO- 

ASWREG= 

AT£STN= 

AUNI T = 

AUSWR = 

AUTOSZ 

AVECT1- 

AVECT2- 

BAR 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

oooooo 

000000 

oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 

022322 
022134 

oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 

000040 
000001 
000200 
000100 

oooooo 
oooooo 
oooooo 
oooooo 

015144 

oooooo 
oooooo 

000012 



2321 

2321 

2321 

2321 

2321 

2321 

2321 

2321 

2321 

2321 

2321 

2321 

2321 

2321 

2321 

2321 

2321 

2321 

2321 

2321 

2321 

2321 

2629* 

2612 

2321 

2321 

2321 

2321 

2321 

2321 

2321 

2321 

2321 

2321 

2321 

2321 

2321 

2321 

2321 

2321 

2321 

2321 

2321 

2321 

4119 

3870 

2581 

4114 

2321 

2321 

2321 

2321 

2607 

2321 

2321 

2699* 



2362 
2364 
2365 
2336 
2366 
2367 



2368 
2369 



2327 

2363 

2636* 

4871* 

2332 

2353 

2324 

2349 

2353 

2356 

2359 

2343 

2351 

2354 

2357 

2329 

2330 

2323 

2344 

2352 

2355 

2358 

2326 

4224* 

4112 

4221* 

4182 

2334 

2325 

2328 

2335 

4710* 

2360 

2361 

2770 



2644 
5811* 



3031 * 5883* 



C 
R 
P 

C 



4180 
4223* 



4222* 



2774 2778 3154* 3204* 3513* 3578 



3582 



3586 5263* 5624* 



N 11 
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CROSS REFERENCE 


TABLE — 


USER 


SYMBOLS 


BCR = 


000010 


2789 


2793 


2797 


3150* 


3178* 


3189* 


3200* 






5623* 












BEGIN 


001576 


2143 


2538* 












BEGINA 


001614 


2542* 


3049 


3264 


4926 


4931 






BITO = 


000001 


2242* 


2605 


2610 


2838 


4934 


4945 


4964 


BITOO = 


000001 


2232* 


2242 












BIT01 = 


000002 


2231* 


2241 












BF02 = 


000004 


2230* 


2240 












BIT03 = 


000010 


2229* 


2239 












BIT04 = 


000020 


2228* 


2238 












BIT05 = 


000040 


2227ft 


2237 












BK06 = 


000100 


2226* 


2236 


3110 


3163 


3170 






BIT07 = 


000200 


2225* 


2235 


2867 


3664 








BIT08 = 


000400 


2224* 


2234 












BIT09 - 


001000 


2223* 


2233 


3817 


7QQ1 

3881 








BIT1 = 


000002 


2241* 


2909 


4872 










BIT10 = 


002000 


2222» 


2732 


3540 










BIT11 = 


004000 


222M 


2711 


2726 


2737 


2755 


2775 


2794 






3532 


3545 


7C/7 

3563 


7f Q7 

3583 


3602 


3644 


3663 


BIT12 = 


010000 


2220* 












BIT13 


020000 


2219* 


3138 


31 53 


3203 


3865 






BIT14 - 


040000 


2218* 


2842 


3639 


770n 

3/99 








BIT15 - 


100000 


2217* 


2756 


2955 


71 70 

3138 


3564 


3714 




BI T2 ~ 


000004 


2240* 














B'T3 


000010 


2239* 














BI T4 


000020 


2238* 














BIT5 = 


000040 


2237* 














BIT6 = 


000100 


2236* 














BIT7 = 


000200 


2235* 














BIT8 


000400 


2234* 


4981 












BIT9 - 


001000 


2233* 














BKR 


000014 


5625* 














BPTVEC= 


000014 


2249* 














BRLVL 


021710 


2631 


5720* 












BRPTR 


022326 


2631* 


2638* 


OA/ A. 


7rt77 * 

5V55* 


5885* 






BUSER 


016754 


2596 


5067* 










CAR 


000006 


2808 


2817 


31 ->1 * 


3201* 


3616 


3625 


4633* 


CEXIT 


022336 


3097* 


3123 


71 C7* 


com u 
boy iff 




CHKADR 


016446 


4941 


4989* 












CHKVCT 


016612 


4952 


5027* 












CHPS1 


021420 


2700 


3119 


7C1 / 


CA7/ 


5084 


5248 


5587* 


CHPS2 


021434 


2736 


2754 


0777 




2815 


2845 


2863 




021574 


3623 


3642 


3660 


~Z£. OA 

3680 


4621 


5595* 




CHRCNT 


2687* 


2809 


1071 

2831 


2904 


3220 


3288* 


3498* 






5508 


5518 




5t)42 


5559 


5665* 




CKER 


004076 


2727 


2917* 








CKERDP 


010566 


3533 


3706* 












CKRST1 


014560 


4586 


4601* 












CKRST2 


014610 


4609* 


5075 


5085 










CKSWR = 


104407 


3297 


3797 


3857 


3880 


4544* 






CLALL 


021402 


5507 


5517 


5529 


5541 


5558 


5579* 




CLMSG1 


026767 


5382 


6413* 










CLMSG2 


027025 


5406 


6420* 












CLMSK 


022362 


3715 


5569* 


5573* 


5901* 








CLSEL 


021576 


2688* 


5155* 


5156 


5161* 


5164 


5667* 




CLSTAT 


017130 


2658 


5116* 











4632* 5260* 



SE0 0143 
5282* 



3101 
5256 



3130 3523 



2883 3096 3544 
3617 4628 4632 



3562 
5162* 



3581 
5165' 



3600 
5182 
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CR 

CRLF - 
CURL PR 



DATERR 

DATPAT 

DDISP : 

DEPTR 

DEVMAP 

DF1 

DF2 



DHADRS 

DMAD1B 

DHF ILL 

DMNUH 

DHRLVL 

DHSEL 

DHSET1 

DHST1 

DHST2 

DMTLVL 

DHVCT 

DMVCTB 

DMVEC 

DHWAIT 

DH1 

DH2 

DH3 

DM4 

DM5 

DM6 

DM7 

DISPLA 

DISPRE 

DHADRS 

DWVEC 

D 0 AM 

DPATB 

DPATCR 

DPATD 

DPATR 

DPATS 

DPATU 

DPFLG 

DPHSGA 

DPMSG1 

DPMSG2 

DPMSG3 

DPMSGA 



000015 
000200 
021570 



DATCNT 022342 



030260 
022344 
177570 
030460 
026052 
02 35 74 
022576 



DMADR 021 5 K 



021 750 
021606 
022426 
022142 
022140 
021522 
014640 
002664 
007512 
022141 
0215^6 
021646 
022006 
005236 
022503 
023277 
023472 
023631 
024014 
024154 
024534 
001142 
000174 
022042 
022100 
006460 
007272 
007050 
006654 
006752 
007132 
006556 
022340 
030075 
027521 
027W7 
027631 
027666 



2157* 
2158* 

511 1 
5319- 

5461* 

3348* 

3391 

3500* 

2919 

3307* 

2164* 

2919* 

4875 

2463 

2393 

2491 

2644* 

6129 

4712 

2629 

5474* 

2632* 

2646* 

2639 

2698 

2698* 

3350 

2668 

2645* 

2630 

4784 

3121* 

2391 

2440 

2454 

2468 

2482 

2489 

2531 

2285* 

2138* 

4719 

4826 

3322 

3342 

3318 

3330 

3334 

3338 

3326 

2540* 

3465 

3269 

3275 

3283 

3302 



4158 

4129 

4631 

5326* 

5568 

3351 * 

33<J2* 

3501 

3016 

3320 

2285 

2925* 

6322* 

6062* 

2400 

2498 

2669 

6192 

4720 

5006 

5486* 

2635* 

2665 

3037 

3512 

3368 
3107 
2663 
5044 
4865 

2498 

2447 

6046* 

2475 

6099* 

2496 

6183* 

2569* 

2577 

4825 

4879 

3348* 

3463* 

3420* 

3384* 

3402* 

3432* 

3366* 

2619 

6528* 

6486* 

6494* 

6499* 

6504* 
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4168 

4168 

5131 

5338* 

5662* 

3352 

3402* 

3504 

6542* 

3324 

2569 

2969* 



B 12 

TABLE — USER SYMBOLS 



SEO 0144 



6017* 
6072* 

2503 

2577* 

4878 

5795* 

3421 

3429 
3425 
3427 

3423 
3047* 



5133* 


5136 


5163* 


5164* 


5206* 


5207* 


5262 


5290* 


5297* 


5309* 


5365 


5367* 


5383* 


5397* 


5401* 


5408' 


5429* 


5436* 


5444* 


5457* 


5933 


6027 


6054 


6108 


6129 


6192 










3355 


3356* 


3366* 


3369* 


3370 


3373 


3374* 


3384* 


3387* 


3388 


3405* 


3406 


3409 


3410* 


3433* 


3451 * 


3452 • 


3455 


3456* 


3463* 


3505* 


3524 


5893* 
















3328 


3332 


3336 


3340 


3420* 


3422* 


3424* 


3426* 


3525 


5894* 



6549* 



2407 


2414 


2421 


2428 


2435 


2<i*i2 


2449 


2505 


2512 


2519 


2526 


2533 


5936* 




2711* 


3051* 


3100 


3266* 


3300 


3523* 


4662* 


4767 


4783 


4876 


4933 


5009 


5739* 




5020 


5676* 












5487 


5498* 


5500* 


5502* 


5503 


5904* 




2648 


2990 


3030* 


5815* 








3099* 


3104 


3290* 


3293 


5813* 






4971* 


5631* 












4620* 














3386 


3404 


3450 


3499 


3512* 






3296 


5814* 












3052* 


3102 


3267* 


3291 


5038* 


5042* 


5090 


5058 


5696* 












4866 


4868 


4877 


4944 


5047 


5758* 




2405 


2412 


2419 


2426 


2433 


5924* 





2456 
5000* 



2470 
5004* 



2477 
5255 



2484 
5628* 



5629* 



2510 

3839* 

5776* 



2517 
3860* 



2524 



6121* 



3073 3261* 4601 



4609 



4921* 4929* 4958 5002 



5040 



589 t # 
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DPMSG5 

DPMSG6 

DPMSG7 

DRPLIN 

DSWR 

DTI 

DT10 

DT2 

DT3 

DT4 

DT5 

DT6 

DT7 

EC 

ECBUF 

ECHO 

ECH01 

ECH02 

ECH03 

ECMSG1 

ECMSG2 

ECMSG3 

ECMSG4 

EC2 



027740 

030002 

030042 

021530 

177570 

022560 

024614 

023364 

023540 

023554 

023700 

024074 

024224 

026214 

022366 

004672 

004714 

004740 

005110 

026231 

026330 

026366 

026445 

026222 



EC 3 


026224 
000030 


EMTVEC 


EMI 


022434 


EM10 


023227 


EM11 


023404 


EM12 


023432- 


EM14 


023604 


EM15 


023714 


EMI 6 


023742 


EM17 


024112 


EM2 


022606 


EM20 


024240 


EM21 


024302 


EM22 


024346 


EM23 


024404 


EM24 


024442 


EM25 


024501 


EM3 


022665 


EM4 


022745 


EM5 


023022 


EM6 


023104 


EM7 


023153 


ENBUFS 


034104 


END A 


004602 


ERRVEC- 


000004 


EXFLAG 


022364 


EXPAR 


016442 


EXPAT 


006072 



3314 

3345 

3435 

2661* 

2163* 

2392 

2532 

2441 

2455 

2462 

2469 

2483 

2490 

634 1# 

3176* 

2145 

2618 

3059* 

3089 

3054 

3060 

3114 

3118 

3077- 

3252 

5355 

5420* 

5479* 

3492* 

2252* 

2390 

2439 

2446 

2453 

2467 

2474 

2481 

2488 

2397 

2495 

2502 

2509 

2516 

2523 

2530 

2404 

2411 

2418 

2425 

2432 

5581 

2676 

2245* 

3098* 

4982 

2146 



6511* 

6517* 

6523* 

2721* 

2284 

2399 

6192* 

2448 

6054* 

6059* 

2476 

6108* 

2497 

31 77» 

3046* 

3051* 

3133 

3091 

6344* 

6357* 

3116 

6372* 

3084* 

3299* 

5358 

5422 

5481 

3493* 

2553* 

2744 

2890 

2950 

2718 

6068* 

6085* 

6092* 

6115* 

2763 

6134* 

6143* 

6152* 

6160* 

6168* 

6178* 

2782 

2801 

2821 

2853 

2873 

6568* 

3024 

2566 

3139 

4986* 

3261* 
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SEO 0K5 



2748* 

2568 

2406 

6027* 



6080* 

2504 

3185* 

4607 

3254 
3096* 



3571 



3590 
3609 
3629 
3650 
3670 

3027* 
2567* 
3141 

4606 



2767* 
2413 



2786* 
2420 



2805* 

2427 



2825* 
2434 



2857* 2877* 
5933* 



2894* 2997 



5634* 



2511 

3186* 

4615 

3272 



2518 
3198* 

4957 



2525 
3201 



6129* 

5272 



5273* 5903* 



6363* 






















3086 


3088 


3090 


3092 


3214* 


3216 


3236* 


3243* 


3245 


3248 


3250 


3308* 


3310 


3315 


3432* 


3441* 


3443 


3446 


3469* 


3471 


5346* 


5353* 


5360 


5362 


5380* 


5388* 


5390 


5392 


5394* 


5395 


5399 


5403 


5413* 


5424 


5426* 


5427 


5431 


5441* 


5449* 


5451 


5453 


5455 


5459 


5470* 


5484 


5486 


6342* 


















3495 


6343* 




















2554* 






















3552 


5917* 




















3687 


6010* 




















3729 


6033* 




















6040* 























5942* 



5954* 
5966* 
5977* 
5989* 
5999* 

3038 

2578* 

3143 

4614 



2596* 
3147* 



2597* 
3161* 



3804 
3179* 



3805- 
3190* 



3807* 
5902* 



3810* 
6108 



CZDHN-D 


MACY11 


30A(1052) 


27-DEC 


-78 15 
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CROSS REFERENCE 


TASlE - 


EXPAT1 


006 114 




2621 


3266* 








EXPAT2 


006140 




3272* 


4960 




3382 


3400 


EXPAT 3 


006244 




3297* 


3346 


3364 




3614 


3634 


3655 


3675 


3692 


FILC1 


027303 




5473 


6458* 








FILC2 


027331 




5494 


6463* 






r i 71 - 

5471 * 


FILLA 


022430 




3227 


3484 


5275 


5276 


FILLB 


022432 




3226 


3482 


5<71 


5279 


5492* 


FRMERR 


030420 




2922 


3019 


6545* 






FRPTR 


030466 




"•922* 


2928* 


2977* 


6552* 




GNS = 


**»»»» 


u 


^1 37 


/ C 7 Z 

4536 


4537 


4538 


/ C 7fl 

4539 


GTSWR = 


104406 




2592 


4542* 








HT = 


00001 1 




2155* 


4127 


4168 






INCL 


020364 




7*71 

5371 


5380* 


5407 






INF CHR 


020766 




C 7*7 / 

5374 


C / "7/\ M 

5470* 








INFCNT 


021056 




5375 


5492* 








INMSGA 


025355 




4976 


6262* 








INMSG1 


024726 




4937 


6213* 








INMSG2 


024772 




4948 


6219* 








INMSG3 


025041 




4967 


6226* 








INMSGA 


025112 




5024 


/ 177 U 

6233* 








INMSG5 


025163 




5062 


6240* 








INMSG6 


025237 




6248* 










INMSG7 


025305 




4984 


6255* 




4933* 




INPAR 


016216 




2627 


3056 


3270 




INPARA 


016112 




2614 


4910* 


4919 






I MP ARC 


016172 




2144 


927 ft 








INPARX 


016160 




2141 


4925* 








INPAR1 


016252 




4940 


4944* 








INPAR 3 


016306 




2626 


4951 


4955* 






INPARA 


016370 




4970 


4972* 








INPB 


020646 




r 7 ~~f~7 

5373 


5441* 


5465 






INRSP 


020110 




5316* 


5370 








INS8 


020530 




5372 


rr / 1 7 j* 

5413* 


5435 






INXSP 


01 7774 




5287* 


5369 








IOTVEC= 


000020 




2250* 


2551* 


2552* 


4785* 


4786* 


KYBD1 


017514 




2659 


5224* 








K V BD2 


01 7540 




5224 


5232* 








LDFILL 


01 7720 




^i r\c 

3195 


t 1*71 

5271* 








if = 


000012 




21 56* 


4162 


4168 






LINE 


022144 




2662* 


2679 


2712 


2717 


2o8 








2852 


2868 


2872 


2889 


2906 








If 1 £ 

3546 


7rri 

3551 


3565 


3570 


7C Qrt 

3589 








3728 


3798* 


4624 


4646 


4648* 








t 1 m 

6192 










I INMSK 


021526 




2699 


272) 


2748 


2767 


2786 








3023* 


70/ ✓ . 

3066* 


3069* 


3154 


3204 


L INSEL 


021 524 




3010 


4657 


4972* 


4980* 


5632* 


LPMSG 


026536 




C 7 / O 

5348 


6382* 








LPR = 


000004 






/ / 71 

4631* 


5262* 


5621* 




LPRIN 


020224 




3071 


C 7 / Z *# 

5346* 


5363 






LPRPTR 


021572 




2683* 


C 1 7 1 

5131 


5133 


5141* 


f / / / M 

5664* 


1 DDT AO 


021536 




£00.5 










MSG1 


025712 




4769 


6304* 








MSG2 


025741 




4809 


6303* 








MSG 3 


026005 




4838 


6315* 
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USER SYMBOLS SE0 0146 



3418 


34 30 


3461 


3510 


3530 


3557 


3576 


3595 


5487* 
5503* 


5906* 
5907* 














4540 


4542 


4544 


4545 


4546 


4547 


4548 




4827* 


4853* 














2743 
2923 
3608 
4650* 


2757 
2933 
3628 
4652* 


2762 
2949 
3646 
4653 


2781 
3062* 
3649 
4661* 


2800 
3063* 
3665 
5257 


2820 
306A 
3669 
5816* 


2833 
3108 
3686 
6108 


28A9 
3U3 
3712 
6129 


2805 
3513 


2825 
4649* 


2857 
4655* 


2877 
4657 


289A 
5263 


2986* 
5633* 


2997 


3010 
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CROSS REFERENCE 


TABLE 


NEWCL 


002644 


2691* 


2696 








NEWL1N 


002544 




2686 


2723 


27^9 


2768 


NEWLPR 


002616 


2685* 


2692 








NEWPAR 


002656 


2695* 


2728 








MRC = 


000002 


2880 


3171 


3677 


5620* 




ORPTR 


030464 


2921 » 


2927" 


2974* 


6551* 




OVRERR 


030360 


2921 


3018 


6544* 






PARBIT 


021600 


2693* 


5201 


5205* 


5207 


5208 


PARERR 


030320 


2920 


3017 


6543* 






PATFLG 


022346 


3298* 


3317* 


3359 


3377 


3395 


PAfLIM 


022354 


3352 


3370 


3388 


3406 


3452 


P8MSG1 


027176 


5443 


6t43* 








P8MSG2 


027244 


5464 


6451* 








PEPTR 


030462 


2920* 


2926* 


2980* 


6550* 




PIRQ = 


1 77772 


2162* 










PIRQVE- 


000240 


2256* 










PRSTAT 


004412 


2677 


2986* 


5249 






PRO = 


000000 


2179* 










PR1 


000040 


2180* 










PR2 = 


000100 


2181* 










PR 3 = 


000140 


2182* 










PR4 


000200 


2183* 










PR 5 = 


000240 


2184* 










PR6 - 


000300 


2185* 










PR 7 = 


000340 


2186* 










PS 


1 77776 


2159* 


2160 


4801* 


4831* 




PSW 


1 77776 


2160* 










PTWAI T 


007530 


3516* 










PWRVEO 


000024 


2?51* 


2557* 


2558* 


4553* 


4554* 


QUICK 


021532 


2660* 


5138* 


5140* 


5158 


5203 


QUICKX 


021534 


2690* 


5153 


5160* 


5638* 




RANA 


022356 


5544* 


5546 


5547* 


5548* 


5551 


RANB 


022360 


5546* 


5548 


5549* 


5900* 




R8FEND 


021604 


2902 


2962 


3696 


3699 


3737 


RBFPTR 


050470 


2885* 


2886 


2900* 


2901* 


2902 






3695* 


3696 


3698* 


3699 


3706* 


RSJF 


030474 


2885 


2917 


3682 


3706 


4626 


RDCHR = 


104410 


3080 


3212 


3239 


3303 


3436 


RDDEC = 


104413 


3276 


4548* 


5291 


5320 




ROLIN = 


10441 1 


4411 


4464 


4546* 






RDOCT - 


104412 


3061 


4547* 


4912 


4938 


4949 


RDONE 


021602 


2705 


2838* 


2909* 


3518 


3701* 


RESERR 


017016 


2598 


5077* 








PESTRP 


01 7060 


5090* 










RESTRT 


002344 


2635* 


2643 








R5ST1 


002402 


2641* 


4613 








RFSVEC= 


000010 


2246* 


2598* 


2599* 






RETFLG 


022352 


2541* 


2616 


3046* 


3262* 


4603 


RINT 1 




2664 


2842* 








RINT2 


005462 


3103 


3170* 








RINT3 


010252 


3292 


3639* 








RSMSG1 


026701 


5317 


6401* 








RSMSG2 


026724 


5334 


6406* 








RSPTA8 


022236 


5313 


5331 


5854* 






RSPTR 


022234 


5318* 


5323 


5325* 


5326 


5330* 


RSIRTA 


002412 


2640 


2644* 


3039 


4605 
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USER SYM80LS SFO 0147 



2787 


2806 


2826 


2858 


2878 


2895 






5210* 


5212 


5214* 


5216 


5218* 


5663* 






3413 
3501 


5895* 
5898* 














4563* 
5636* 


4569* 


4581* 


4582* 










5899* 
















3740 
2917* 

771 t. 

.V16 
4627 
3467 


4627* 
2936 

6560* 
4339 


4630* 
2942 
bf 36* 

4545* 


5671* 

2961* 
7777 

5349 


2962 

777Q* 
5 1 3V* 

5384 


3682* 

77/ f\ 

5416 


3683 
*tO*:6* 

5445 


3694* 

/re/ M 

6554* 
5475 


4968 
4625* 


4977 
5670* 


5495 
6054 












4611 


4922* 


4930* 


4955 


4998 


5036 


5897* 





5331 5852* 
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CROSS REFERENCE 


TABLE — 


USER SYMBOLS 








RTOTAL 


030160 


2714 


2908* 


3014 


5116 


5118 


6540* 










SAPS 


021450 


5603* 




















S8MSG1 


027071 


5415 


6428* 


















SBMSG2 


0271 30 


5434 


6435* 


















SELINE 


OK 736 


2671 


4646* 






3057 


5630* 










SELMSK 


021520 


2633* 


2639 


2641 * 


3034* 










St NOP 1 


005704 


3094 


3209* 


3249 


3251 














SENDP2 


01 7642 


3235 


52!>5* 


















SETCL 


017232 


2691 


5153* 


















SETLPR 


017146 


2685 


5131* 


















SET PAR 


017372 


2695 


5201* 


















SINGLE 


022350 


3440* 


3448* 


3468* 


3469 


3473 


~t t 7n 

3479 


3483 


3489 


5561 


5896* 


SNMSG1 


027352 


3079 


6466* 


















SNMSG2 


027402 


3210 


6470* 


















SNMSG3 


027462 


3238 


6478* 


















SOFT 


004352 


2958 


2972* 


















SPACE 


026046 


4890 


4895 


632 1 * 
















SSR - 


000016 


5626* 




















STACK = 


001 100 


2150* 


2549 


2722 


C A "7 A 


5080 


CI/ 7 

5247 










START! 


002122 


2596* 




















START2 


002306 


2623 


2629* 


2642 


777Q 


4986 












STDH1 


002466 


2658* 




















STKLMT= 


1 7777ft 


2161* 




















STMSG1 


025514 


2991 


2993 


6280* 
















i>TMSG2 


025541 


2680 


2682 


6284* 
















STMSG3 


025566 


3003 


3005 


6288* 
















STMSG4 


02561 7 


2995 


6293* 


















SUBUF1 


01 7 332 


5166 


5177* 


















SUCLMK 


021346 


3273 


5568* 


















SUER1 


01 5122 


2741 


2760 


2779 


cfvo 


2818 


"iOCft 

2850 


287U 


3549 


3568 


3587 






3667 


4701* 


















SUER2 


01 51 16 


2887 


2947 


3684 


572b 


4700* 












SUNUW 


01 5036 


2647 


2678 


2716 


17/ 

2742 


2761 


2780 


2799 


2819 


2851 


2871 






3001 


3112 


3550 


3569 


3588 


7/.A7 

3607 


3627 


3648 


3668 


3685 


SUPATA 


a** 1 * 7rt 

021130 


3349 


5507* 


















SUPATD 


021206 


3385 


5529* 


















SUPATR 


021240 


3403 


5541* 


















SUPATS 


02 l 320 


3449 


5558* 


















SUPATU 


021 1 56 


5367 


5517* 


















SWR 


001 140 


2284* 


2547 


2568* 


2570 


2576* 


2585* 


25V0 


2605 


2610 


3362 






3428 


3459 


3308 


3799 


3817 


5824 


70/ c 

5865 


3877 


3881 


4235 






4872 


4934 


/ ft/ c 

4945 


/ ftz / 
4964 


4973 


/ ft0 1 

4981 


5007 


5045 


5134 


5236 


SWRcG 


AAA1 7/ 

0001 76 


2139* 


2576 


2590 


4235 


4248 


5256 










5W0 = 


000001 


2214* 




















swoo = 


000001 


2204* 


2214 


















SWOI = 


00000*: 


2203* 


2213 


















SW02 - 


000004 


2202* 


2212 


















SW03 - 


ooooio 


2201* 


2211 


















CL»V — 
,>WU*« - 


h Ann 3D 


2200* 


2210 


















SW05 - 


000040 


2199* 


2209 


















SW06 - 


OOC100 


2198* 


2208 


















SW07 = 


000200 


2197* 


2207 


















SW08 - 


000400 


2196* 


2206 


















SW09 = 


001000 


2195* 


2205 


















SW1 - 


000002 


2213* 




















SW10 


002000 


2194* 





















SF0 0148 



3587 3606 3626 3647 



2988 



3380 3398 3416 
4272* 4561 4574* 
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G 12 

TABLE — USER SYMBOL S 



iWll 

SW1 2 : 

SU13 : 

SWH - 

SW15 = 

SW2 
SW3 

SWA = 
SW5 

SW6 - 
SW7 s 

sua = 

SW9 = 
TBFPTR 
T8ITVE= 
TBUF 

TIMEA 
TIME8 
TIMEIT 

T" INT 1 

TINT2 

'INT3 

THFLG 

TITLE 

TITLE2 

TKVEC - 

TPVEC = 

TRAPVE= 

TRTVEC- 

TST1 

TYPDS = 

TYPE - 



TYPOC ~ 

TYPON = 

TYPOS = 

UPOER 

VCFLG 

VCPTR 

VCWC 

XSMSG1 

XSMSG2 

XSPTAfl 

XSPTR 

X TOTAL 

SAPTHD 

$ASTAT= 

SATYC 

SATV1 



= 004000 

= 010000 

; 020000 
040000 
100000 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001 ooc 
030472 
OOOOK 
032754 

022332 

022334 

017106 

003030 

005314 

007630 

022330 

024632 

024701 

000060 

000064 

000034 

000014 

002456 

104405 

104401 



104402 
104404 
104403 
004340 
021706 
022324 
025417 
026610 
026636 
022150 
022146 
030220 

000000 
•»*»»» 

012650 
U 12624 



2195* 
2192* 
2191* 
2150* 
2189* 
2212* 
2211* 
2210* 
2209* 
2208* 
2207* 
2206* 
2205* 

2918* 

2247* 

2811 

3707 

2703* 

2704* 

2707 

2667 

3106 

3295 

2542* 

2603 

2649 

2254* 

2255* 

2253* 

2248* 

2656* 

3767 

2602 

3215 

3470 

4080 

4367 

4874 

5243 

5442 

3905 

4539* 

4538* 

2946 

2539* 

2630* 

4911 

5288 

5305 

5289 

5289* 

2715 

2118 

4202 

4173 

4171* 



2930 


2943 


296C* 


2918 


2945 


3109 


3725 


4633 


5183 


3121* 


3152* 


3162* 


3122* 


3517* 


5105* 


3125 


3520 


5105* 


2732* 






3138* 






3540* 






2600 


2604* 


5887* 


6202* 






2651 


6209* 




2555* 


2556* 





3933 
2650 
3237 
3494 
4132 
4369 
4890 
5287 
5450 
3929 

4883 

2967* 

2608 

2637* 

6269* 

6389* 

6394* 

5302 

5294 

2835* 

2124* 

4217 

4175* 



4540* 

2681 

3244 

3765 

4246 

4372 

4895 

5304 

5463 

4249 



2615* 
2645 



5826* 
5296* 

3015 



2992 
3268 
3768 
4247 
4376 
'♦900 
5316 
5472 
4537* 



4887 4892 



3048* 
3032* 



^297 
6541* 



3145 
5258 
3202* 
5889* 



2994 
3274 
3868 
4250 
4440 
4904 
5333 
5480 



4897 

3263* 
5834* 



SEO 0149 



3707« 3709 3723 3735* 6555* 



3148 
5261 
3516* 



3151 
5509 
5107* 



3160 
5519 
5888* 



3211 
5531 



3466 
5543 



3476 
5560 



3496 
5579 



3619 
6566* 



300A 
3282 
3897 
4263 
4442 
4910 
5347 
5493 



3053 
3301 
3914 
4274 
4501 
4936 
5354 



3059 
3309 
3916 
4^93 
4503 
4947 
5381 



3078 

3313 

3919 

4346 

4536* 

4966 

5389 



3085 
3344 
39J1 
4352 
4583 
4975 
5405 



3115 
3434 
3936 
4357 
4769 
4983 
5414 



3117 
3442 
3941 
4361 
4809 
5023 
5421 



3209 
3464 
40C5 
4366 
4838 
5061 
5433 



4925* 4928* 5713* 



5301* 5302 



5824* 
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TABLE — JSER SYMBOLS 



SEO 0150 



IATY3 

*ATY4 

SAUTOB 

$8A*sF 

SBDADR 

S8DDAT 

ICDU1 

SCDW2 

tCHARC 

tCKSWR 

tCMTAG 

1CM1 = 

tCM2 = 

SCM3 = 

tCM4 = 

tLNTLG 

SCNTLU 

KPUOP 

tCRLF 

tOBLK 

SDDWC 

S0DW1 

SDDW2 

SDDW3 

tOEVCT 

SDEVM 

SDHSEl 

SDOAGN 

SO TBI 

SEMOAD 

SENOCT 

SENOMG 

tPNULl 

SENV 

$ENVM 

SEOP 

IEOPCT 

SfRFLG 

SERMAX 

(ERROR 

SERRPC 

SERRTB 

IfRRT^ 

*6RTTL 

SESCAP 

IE TABL 

IE TEND 

SFATAL 

SFFLG 

t'lLLC 

IFILLS 

SGDAOR 

SGODAT 

SGET42 

tGTSUR 



0*2632 
012642 
001134 
001306 
001122 
001126 
001312 
001 3H 
012620 
01 3072 
001100 
000010 
000020 
000010 
000010 
013745 
013740 
001260 
001227 

01233? 
001316 
001320 
001322 
001324 
001242 
001310 
022136 
011052 
012322 
011042 
011010 
011061 
011056 
001252 
001253 
010754 
011002 
001103 
001115 
01134,? 
001116 
001326 
011514 
001112 
001224 
001252 
001326 
001234 
013070 
001156 
001155 
001120 
001124 
011032 
013142 



4 1 17 

3873 

2281* 

2 362* 

2276* 

2278* 

2364* 

2365* 

4134* 

4235* 

2264* 

2296* 

2296* 

2294* 

2304* 

4246 

4263 

2336* 

2315* 

45U5 

4046 

2366* 

2367* 

2368* 

2369* 

2327* 

2363* 

4779* 

3761 

4049 

3772* 

3763* 

5765 

3768 

2332* 

2333* 

3029* 

3760* 

2267* 

2273* 

2553 

2274* 

2386* 

3867 

2271* 

2313* 

2331* 

2130 

2324* 

4171* 

2292* 

2291* 

2275* 

2277* 

3769* 

4247* 



4172* 
4V4* 
2594* 



4144* 

4544 

2544 

2297* 

?297* 

2296 

2305* 

4387* 

4361 

3868 
4901 
4080 



4961 
3770 
4084* 



3780* 

3779* 

2588 

2581 

3036 

3764 

3788 

2561* 

3856* 

3862* 

3911 

3896* 

3861* 

2560* 

2370* 

4203* 

4174* 

4137 

4168 



<,243 


4302 


5238 










4151 


4160* 


4165* 










2545 

2298* 

2298* 


2553 

2299* 

2299* 


2559 

2300* 

2300* 


2560 

2301* 

2301* 


2302* 
2302* 


2303* 
2303* 


2304* 
2304* 


2306* 

5243 

4386* 


2307* 


2308* 


2309* 


2310* 


2311* 


2312* 


3889 
4904 
4088* 


3897 


3916 


3921 


3941 


4133 


4168 


3776* 




50 1 d* 










2674 
4114 
3753* 


3870 
4119 


4112 
4182 


4180 


4204 






3813 
3815 


3815 
3838* 


3821* 
3343 


*843 


3858* 


3889 




3863* 


3864 


3889 


3903 


5933 


6027 


6054 


3889 
3837* 


3884 


3886 


3889 








4202 
4168 


4211* 


4219* 











4366 



4386 



4445 



6108 



6129 6192 



4542 5244 
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SEC) 0151 



IHD 

IHIBTS 

SPIOCT 

tICNT 

tILLUP 

$INTAG 

SITEMB 

tir 

SLFIG 

tLPADR 

SLPfcRR 



$MADR1 

$MADR2 

IMADR3 

$MADR4 

SMAIl 

IMAMS 1 

SMAMS2 

SMAMS3 

SMAMS4 

$MBADR 

$MFLG 

SMNEW 

SMSGAD 

IMSGLG 

tMSGTY 

SMSWR 

IMTYP1 

$MTYP2 

SMTYP3 

$MTYP4 

SMXCNT 

$NULL 

$NWTST= 

$OCNT 

SOMODE 

SOVER 

SPASS 

SPASTM 

SPOWER 

SPWRAD 

SPWRDN 

SPWRMG 

SPWRUP 

SOUES 

SRDCHR 

5RDDEC 

SRDLlN 

SKDOCr 

SRDSZ 

SREGAD 

SREGO 

SREG1 

$REG2 



OOO'jOI 
000000 
OKI 32 
0011 OA 
014542 
001135 
001114 
001230 
013067 
001106 
001110 



001 264 
001270 
001 274 
001 300 
001232 
001262 
001266 
001272 
001276 
000002 
01 3066 
013763 
001246 
001250 
001232 
013752 
001263 
001267 
001273 
001277 
011340 
001154 
000001 
012112 
012114 
011324 
001240 
000006 
014550 
014536 
014376 
014532 
014450 
001226 
01 3354 
014134 
013474 
013774 
000010 
001160 
001162 
001164 
001166 



c^089 

2125* 

4433* 

2268* 

4553 

2282* 

2272* 

2316* 

4212* 

2269* 

2270* 

3131* 

3651* 

2349* 

2353* 

2356* 

2359* 

2126 

2343* 

2351* 

2354* 

2357* 

2126* 

4172* 

4250 

2329* 

2330* 

2323* 

4247 

2344* 

2352* 

2355* 

2358* 

3832 

2290* 

2653* 

3977* 

3972* 

3800 

2326* 

2128* 

4584 

4586* 

2-557 

4584* 

4563 

2314* 

4306* 

4459* 

4334* 

4406* 

4327* 

2294* 

2296* 

2297* 

2298* 





















i / / / if 




















ZQ DO 

JOC7 


7HX1 * 
JO J I * 


ZHLj 












4569 


4588* 
















4275 


4392 
















5O0h* 


7H7? 
30/ C 
















3889 


4168 


4376 


4386 


4445 


4505 








4218* 


















2562* 


2652* 


3819* 


3835* 


3840 


3842 








2563* 


2719* 


2745* 


2764* 


2783* 


2802* 


2822* 


2854* 


28 74* 


3357* 


3375* 


3393* 


3411* 


3457* 


3506* 


3526* 


3553* 


3572* 


3671* 


3688* 


3730* 


3819 


3836* 


3842 


3883 


5071* 


5081* 


2130 


2322* 


2580 


2588 


3834 


3870 


4112 







4178 

4390* 

4188* 

4193* 

4186 

4388* 



3842* 
4139 

4006* 
3976* 
3820 
' 2580* 

4591* 

4553* 

4569* 

3889 

4545 

4548 

4546 

4547 



3355* 
3128* 
4 702* 



2891* 
3501. 



2951* 
3610* 



3020* 
3630« 



4213* 

4191 

4194* 



4217* 



4206 4210* 



4168 

4019* 
3981 
3830 
3757* 



4581 
4168 



3984* 3995* 
3839* 

3758* 3766 



4021* 

3779 



3826 3843 



4293 4369 4386 4442 4445 4503 4505 



3373* 
3525* 
5069* 



3391* 
4701* 
5079* 



3409* 
5068* 
5933 



3455* 
5078* 

6027 



3504* 

5933 

6080 



3524* 
6027 



4700* 
6080 



6027 
6108 



6129 
6192 



6192 
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TABLE — 
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USER SYMBOLS 



SEO 0152 



IREG3 

IREGA 

SREG5 

$REG6 

SREG7 

SRTNAD 

$R2A » 

SSAVRE= 

SSAVR6 

SSCOPE 

$SETUP= 

SSTUP = 
SSVLAD 
ISVPC = 
$SWR = 



SSUREG 

SSWRMK= 

STESTN 

STIMES 

STUB 

$TKS 

STMPO 

STMP1 

STMP2 

STMP3 

STMP4 

STMP5 

STMP6 

STMP7 

$TN = 

$TP8 

STPFLG 

$TPS 

STRAP 

1TRAP2 

STRP = 

STRPAD 

t T STM 

STSTMH 

STTYJN 

STYPBN= 

STYPDS 

STYPE 

STYPCC 

STYPEX 

STYPOC 

STYPON 

$ TYPOS 

SUNJT 

tUNITM 



001 17C 
001 1 72 
001 1 74 
001 1 76 
001200 
011054 
****** u 
****** u 
014546 
011076 
000117 

1 77777 
011270 
000000 
165000 



001254 
000000 
001236 
001222 
001146 
001144 
001202 

001204 
001206 
001210 
00 1 212 
001214 
001216 
001220 
000002 
001152 
001157 
001150 
014312 
014334 
000014 

014346 
000004 
001102 
013730 
****** LI 

012116 
012342 
012554 
012622 
011714 
011730 
011670 
001244 
000010 



2299* 

2300* 

2301* 

2302* 

2303* 

3778* 

4549 

4549 

4562* 

2551 

2543* 

3880 

2543* 

3808 

2103* 

2076* 

2562 

3799 

385 1 

2334* 

3793 

2325* 

2312* 

2287* 

2286* 

2304* 

3677* 

2305* 

2306* 

2307* 

2308* 

2309* 

2310* 

2311* 

2089* 

2289* 

2293* 

2288* 

2555 

4524* 

4528* 

4549* 

4518 

2127* 

2266* 

4336 

4541 

4034* 

4106* 

4136 

4161 

3975* 

3974 

3970* 

2328* 

2129* 



4703* 
4704* 



4570 
3796* 
2550 
3888 

3833* 

2108 

2089 

2563 

3811 

3852 

2583 

3834* 

2559* 

4228 

4228 

2714* 

3694 

2715* 

3015* 

3016* 

3017* 

3018* 

3019* 

2940* 

2653 

4157* 

4106 

4155 

4513* 

4535 

4537* 

4535* 

3028* 
4337 

4540 

4199 

4143 

4163 

4537 

3977* 

4538 



5933 
5933 



4571* 
4853 
2551 
4230 



2094 
2657 
3813 
3861 



4653* 

2657* 

4239 

4237 

2880* 

5273 

3014* 

6059 

6059 

6059 

6059 

6059 

2955 

2657* 

4168 

4168 

4168 



3755* 
4349 



4528 
4150 
4166* 

4539 



6027 
6027 



5067* 5077* 6080 



4572* 

2>53 
4392 



2095 
3750 
3814 
3865 



4590* 
2555 



2096 
3756 
3815 
3877 



2557 



2097 
3771 
3822 
3881 



2559 2560 



2562 2585 



2098 
3777 
3823 
3889 



2099 
3779 
3824 
4587 



2312 
3789 
3836 



2313 
3790 
3839 



3755 



2314 
3791 
3842 



3797 3857 



2559 
3792 
3849 



2560 
3793 
3850 



3756* 


3822* 


3829 


3832* 


3842 




4256 


4310 


4316 


5232 






4253 


4277* 


4308 


4314 






2900 


3012* 


3129* 


3171* 


3172* 


3173 


5274 


5611* 


6054 


6059 


6080 


6108 


6054 


6059 










2972* 


2975* 


2978* 


3000* 


3002 


3720 



3182 



3193 3198 3199 



4538* 4539* 4540* 4541* 4542 4543* 4544 4545* 4546* 4547* 4548* 



3788 3833* 
4367 4381 



4536 

4155* 4156 



3834 3839 3843 3860 3889 
4 385* 



4279 
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tUSWR 


001256 


177C m 










* i if f T 1 

SVECT1 


001 302 


2560* 










*vc CT<? 


001 504 


<;5ol* 










* w T C T D 

•X 1 bin 


0 I I I I M 


iOU*:* 










terc t / — 


nnonnn 

vvvwv 


Jf f 1 w 










K)F ILL 


012113 


3971* 


3975* 


3985 


4020* 




S40CAT= 


»«•»»* u 


3799 


3867 










034106 


2103 


21 OA* 


2106* 


2108* 


2114 






2562 


2563 


2652 


3779 


3783 






4385* 


4386 


4392 


4445 


4505 






6542* 


6543* 

4175 


6544* 


6545* 


6560* 


.SASTA= 


»••**• t j 


4172 








.Sx = 


000000 


2114* 


2119 
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USER SYMBOLS StO u15 5 



2115* 2117* 2119* 2133* 

3842 3843 3889 3944* 

4565 4589 5903* 6107* 
6566* 



2137* 2263* 2317 2548 
4088* 4168 4220* 422e 
6128* 6191* 6540* 6541* 
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COWMEN 


1* 


2257* 










ENDCOM 


1* 


2?57* 










ERROR 


2151* 


2720 


2746 


2765 


2784 


2803 




3394 


3412 


3458 


3507 


3527 


3554 




5082 












ESCAPE 


1* 


2257* 
2257* 










GETPRI 


1* 










GETSWR 


1* 


2077* 


2257* 


2585 






MULT 


1* 


2257* 










NEWTST 


1* 


2257* 


2653 








?OP 


1* 


2257* 


2836 


2910 


4075 


4214 


PUSH 


1* 


2257* 


2828 


2897 


4034 


41 75 


REPORT 


1* 


2257* 










SCOPE 


2152* 


2656 


3027 


3754 






SETPRi 


1* 


2257* 










SETTRA 


4528* 


453 7 


4538 


4539 


4540 


4542 


SETUP 


1* 


2077* 


2257* 


2543 






SKIP 


1* 


2257* 




* 






SLASH 


1* 


2257* 










SPACE 


2257* 












STARS 


1* 


2 101 


2111 


2113 


2120 


2257* 




3947 


4024 


4091 


4170 


4227 


4230 




5616 


5618 


591 1 


5913 


6198 


6200 


SWRSU 


1* 


2257* 


2564* 








TRMTRP 


/ f — in,. 

4528* 












TYP8IN 


1* 


2^57* 










TYPDEC 


1* 


2257* 


3766 


39<1 






TvPNAM 


1* 


2257* 










TYPNUM 


1* 


2257* 










T YPOC S 


1* 


2257* 










TYPOC T 


1* 


2257* 


3903 


3928 


4248 




TYPTX f 


1* 


2257* 










$$CMRE 


2257* 


2296 


2297 


2298 


2299 


7/\rt 

2300 


SSCMTM 


2257* 


2304 


2305 


2306 


2307 


2308 


$$ESCA 


1* 


2257* 










$$NEWT 


1* 


2257* 


2653 








$SSET 


4528* 


4537 


4538 


4539 


4540 


4542 


$$SE TM 


2580* 












$$SK IP 


1* 


2257* 










.EQUAT 


1* 


2077* 


2147 








.HEADE 


1* 


2077* 


2079 








.KT11 


1* 












. SE TUP 


1* 


2077* 


2543 








.SWRHI 


1* 


2077* 


2090 








. SWRLO 


2077* 


2099* 










,$ACT1 


1* 


2077* 


2099 








.SAPTB 


1* 


-\ -7-7 a« 

2077* 


2318* 








C ADTM 




*ru^ f * 


01 no 








. SAPTY 


1* 


2077* 


4168 








•SASTA 


1* 












. tCATC 


1* 


2077* 


2131 








. SCMTA 


1* 


2077* 


2257 








. SDB2D 


1* 












.$0820 


1* 












.SDIV 


1* 












.SEOP 


1* 


2077* 


3745 
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MACRO NAMES 



2855 2875 
3592 3611 



SE0 0154 



2892 
3631 



2952 
3652 



3021 
3672 



3152 
3689 



3358 
3731 



3376 
5072 



4434 
4198 



4545 



2317 
4327 



4494 
4408 



4546 



2320 
4394 



4574 
4461 



4547 



2653 
4447 



4575 
4555 



4548 



2655 
4507 



4692 
4561 



!>188 
4675 



5177 



3747 
4551 



3785 
4567 



3845 
4594 



3891 
4596 



2302 
2310 



2303 
2311 



4545 4546 4547 4548 
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.SERRO 


1* 


2077* 


384 3 


.SERRT 


1# 


2077* 


3889 


.SMULT 


1* 






.SPOV/E 


1# 


2077* 


4549 


. SRAND 


1# 






•$RDDt 


1# 


2077* 


4445 


.tRDOC 


1# 


2077* 


4392 


.SREAD 


}» 


2077* 


4225 


.SR2AZ 


1# 






.SSAVE 


~\* 






. JS82D 


1* 






.SS820 


\* 






•$SCOP 


1* 


2077M 


3783 


. SSIZE 


1# 






.$SUPR 


1# 






.STRAP 


1# 


2077* 


4505 


.STYPB 


1# 






.tTYPD 


1* 


2077ft 


4022 


.STYPE 


1# 


2077* 


4089 


.$ TYPO 


l# 


2077* 


3945 


.S40CA 


l# 






.1170 


l# 






. ABS. 


034106 


000 




ERRORS 


DETECTED: 


0 
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SEO 0155 



CZDHW.8IN,CZDHND.SEQ/CRF/SOL/NL:T0C=C7DHND.SML.CZDHND.P11 
RUN-TIME: 15 22 1 SECONDS 
RUN- TIME RATIO: 205/39 5.2 
CORE USED: 33* (65 PAGES) 



